lapply 관련 문제

Question

lapply 내에서 data.frame의 값을 인쇄해도 그 값은 유지되지 않습니다.

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, ]) 
})