私はこれをしたい:
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の結果を割り当てるために使用できるオブジェクトのタイプがわかりません。
ご指摘ありがとうございます、ケイ
Alist
が通常の答えです。
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
ここで (list-apply) を使用することです。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,]))