# NOT RUN {
# data
Y <- scale(Sachs)
# test data
Ytest <- Y[1:100,]
# training data
Ytrain <- Y[101:nrow(Y),]
fit <- ggmncv(cor(Ytrain), n = nrow(Ytrain),
progress = FALSE)
pred <- predict(fit, newdata = Ytest)
round(apply((pred - Ytest)^2, 2, mean), 2)
# }
Run the code above in your browser using DataLab