R用於將回路輸出到表中

Question

這是我的代碼的片段：

parameters$x<-0
parameters$y<-0
for (x in c(1:2)){
  for (y in c(10,20,30,40,50,60,70,80,100)){
control <- rpart.control(minsplit = x,
                         minbucket = round(y),
                         maxdepth = 10,
                         cp = 0)
tune_fit <- rpart(survived~., data = data_train, method = 'class', control = control)

parameters[x] <-accuracy_tune(tune_fit)
}}

我基本上想要一個具有x行和y列的表（基於for循環中x和y輸入的內容），然后將函數的輸出作為值存儲在此新表中。 我知道我要使用參數執行的操作不起作用。

Answer 1

使用此解決方案，無論accuracy_tune返回的結果如何，都將存儲在矩陣中。 雖然，您沒有提供太多信息，但是這是我的解決方案：

# create matrix to store output
parameters <- matrix(data=NA, nrows=2, ncols=10)

# value to use for iteration
x_vals <- c(1:2))
y_vals <- c(10,20,30,40,50,60,70,80,100))

# iterate over values
for (x in seq(x_vals){
  for (y in seq(y_vals){
control <- rpart.control(minsplit = x,
                         minbucket = round(y),
                         maxdepth = 10,
                         cp = 0)
tune_fit <- rpart(survived~., data = data_train, method = 'class', control = control)

parameters[x,y] <-accuracy_tune(tune_fit)
}}

# set row and column names
colnames(parameters) <- y_vals
row.names(parameters) <- x_vals