複数の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結果を割り当てるために使用できるオブジェクトの種類を知りません..but。任意のポインタのための

おかげで、 ケイ

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ループは不要で、リストが返されます。

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