여러 s4 클래스 객체를 할당하는 데 사용할 객체 유형은 무엇입니까?

Question

나는이 일을하고 싶습니다 :

library(party) 

# cts <- ??? 

n <- c(50, 100, 116) 

for(i in 1:length(n)) { 
    data <- airq[1:n[i], ] 
    airct <- ctree(Ozone ~ ., data) 
    cts[i] <- airct 
    } 

나는에 ctree 결과를 할당하는 데 사용할 수있는 개체의 방식을 모르는 ..하지만. 어떤 포인터에 대한

감사합니다, 케이

Answer 1

list은 일반적으로 대답이다.

library(party) 
airq <- na.omit(airquality) # Prunes NA rows down to 111 rows... 

n <- c(50, 100, 111) # 116 is outside 
cts <- vector('list', length(n)) 

for(i in 1:length(n)) { 
    data <- airq[1:n[i], ] 
    airct <- ctree(Ozone ~ ., data) 
    cts[[i]] <- airct 
} 

는하지만 더 좋은 방법은 lapply (목록-적용) 여기를 사용하는 것입니다. for-loop는 필요 없으며 목록이 반환됩니다.

library(party) 
airq <- na.omit(airquality) # Prunes NA rows down to 111 rows... 
n <- c(50, 100, 111) # 116 is outside 
cts <- lapply(n, function(ni) ctree(Ozone ~ ., data=airq[1:ni,]))