我有一个数据集，我分为两个相等的分区 A 和 B。

我估计了分区 A 的回归模型。

我想在预测分区 B 中的值时计算交叉验证的$R^2$

我想知道以下方法是否正确以及可能有哪些其他方法：

#generate data:

data <- replicate(10, rnorm(100))
data <- as.data.frame(data)

#divide into training and test set:

train <- data[1:50,]
test <- data[51:100,]

#fit model and get predictions for unseen data:

model <- lm(train[,1] ~., data = train)
predictions <- predict(model, test)

#obtain cross-validated R squared:

cor(predictions,test[,1])^2