样本外测试集的SuperLearner预测

Question

R中的SuperLearner包返回SL.predict下训练集中包含的所有观测的预测值，并返回系数(coef)，该系数对不同的底层算法进行加权，以构成交叉验证中每个折叠的SuperLearner算法，但我不知道如何使用该包来获得样本外测试集的预测值。例如，下面是他们的手册中的玩具示例。我所做的唯一改变就是在最后添加一个延迟测试集X2和Y2。如何根据训练集中的SuperLearner模型来估计这个样本外测试集的预测值？如何保存模型结果，以便根据同一模型估算未来的预测值？

library(SuperLearner)


set.seed(23432)
## training set
n <- 500
p <- 50
X <- matrix(rnorm(n*p), nrow = n, ncol = p)
colnames(X) <- paste("X", 1:p, sep="")
X <- data.frame(X)
Y <- X[, 1] + sqrt(abs(X[, 2] * X[, 3])) + X[, 2] - X[, 3] + rnorm(n)
# build Library and run Super Learner
SL.library <- c("SL.glm", "SL.randomForest", "SL.gam", "SL.polymars", "SL.mean")
## Not run:
test <- CV.SuperLearner(Y = Y, X = X, V = 10, SL.library = SL.library,
  verbose = TRUE, method = "method.NNLS")
test
summary(test)
# Look at the coefficients across folds
coef(test)
## End(Not run)

###Added Test Set
X2 <- matrix(rnorm(n*p), nrow = n, ncol = p)
colnames(X2) <- paste("X", 1:p, sep="")
X2 <- data.frame(X2)
Y2 <- X2[, 1] + sqrt(abs(X2[, 2] * X2[, 3])) + X2[, 2] - X2[, 3] + rnorm(n)

Answer 1

在对所有数据进行模型估计之后，您可以对predict对象使用SuperLearner方法(CV.SuperLearner估计模型在数据的几个子集上，而不是整个数据)。

r <- SuperLearner(Y = Y, X = X, SL.library = SL.library, verbose = TRUE, method = "method.NNLS")
plot( Y2 ~ predict(r, newdata=X2)$pred )

Answer 2

简单地说，通过在CV.SuperLearner过程中使用hold示例。在此过程中，使用交叉验证方法对经过训练的SuperLearner进行评估。希望这能帮上忙-雷姆科-