r - lapplyの問題

Question

data.frameの値をlapply内で印刷しますが、それ以外では値を保持しません。

lapply(names(RFEresults), function(x)
   {
     feats <- extractFeatures(RFEresults[[x]])
     featurestat[which(featurestat[, 1]==x),rownames(feats)] <- feats$time.choosen
     print(featurestat[1, ])
   })

print(featurestat[1, ])

lapplyは値を保持しませんか？

Answer 1

これを試して：

#assign result of the lapply loop to an object
res <- lapply(names(RFEresults), function(x)
   {
     feats <- extractFeatures(RFEresults[[x]])
     featurestat[which(featurestat[, 1]==x),rownames(feats)] <- feats$time.choosen
     featurestat #return value of the function
   })

#now you have the results of each iteration in a list
#and can access them using
print(res[[1]])
print(res[[2]])
#...

Answer 2

コーシャかどうかはわかりませんが、これでうまくいくはずです。

 lapply(names(RFEresults), function(x)
 {
    feats <- extractFeatures(RFEresults[[x]])
    featurestat[which(featurestat[, 1]==x),rownames(feats)] <<- feats$time.choosen
    print(featurestat[1, ])
 })