sim <- generateData(n = 200, p = 8, q = 6, rho = 0.1,
missing.type = "MCAR", seed = 123)
tr <- 1:150
tst <- 151:200
# \donttest{
## Cross-validated fit, keeping 1-SE solutions
cvfit <- cv.missoNet(X = sim$X[tr, ], Y = sim$Z[tr, ], kfold = 5,
compute.1se = TRUE, verbose = 0)
## Predict on held-out set
yhat_min <- predict(cvfit, newx = sim$X[tst, ], s = "lambda.min")
yhat_b1se <- predict(cvfit, newx = sim$X[tst, ], s = "lambda.1se.beta")
yhat_t1se <- predict(cvfit, newx = sim$X[tst, ], s = "lambda.1se.theta")
dim(yhat_min) # 50 x q
# }
Run the code above in your browser using DataLab