一覧のすべての行列をdata.framesに変換するR

Question

lmeの出力はRにあります。あなたが見るように、出力（fm2）のいくつかの要素は行列です。たとえば、次のようになります。 fm2$varFix

オブジェクトを受け取り、すべての部分行列をdata.framesに変換する関数を探しています。

Answer 1

たぶん、このような

：

lapply(fm2, function(x) {if(any(class(x)=="matrix")) as.data.frame(x) else x}) 

---

EDIT：この答えは、すでに承認されているが、それは再帰的にリストにある行列を変換していないので、私は、溶液で幸せではなかったと要素の属性が失われます。私は次の解決策が両方の問題を解決すると信じています：

library(nlme) 
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1) 
str(fm2) 

replace_sub_dataframes <- function(x) 
{ 
    if(any(class(x)=="list")) 
    { 
    x_copy = x 
    attrs = setdiff(names(attributes(x)),"names") 
    x = lapply(x,replace_sub_dataframes) 
    if(length(attrs)>0) 
    { 
     for(i in 1:length(attrs)) 
     { 
     attr(x,attrs[i]) <- replace_sub_dataframes(attr(x_copy,attrs[i])) 
     } 
    } 
    return(x) 
    } 
    else 
    { 
    if(any(class(x)=="matrix")) 
     return(as.data.frame(x)) 
    else 
     return(x) 
    } 
} 

fm3 = lapply(fm2, replace_sub_dataframes)