# NOT RUN {
# y <- as.matrix(ChickWeight$weight)
# X <- matrix(cbind(ChickWeight$Time, ChickWeight$Diet == 1), ncol = 2)
# cv.out <- crossvalidate.bigKRLS(y, X, seed = 123, ptesting = 20)
# summary(cv.out)
# cv <- summary(cv.out, labs = c("Alpha", "Beta", "Gamma", "Delta", "Epsilon"))
# cv$training.ttests
# kcv.out <- crossvalidate.bigKRLS(y, X, seed = 123, Kfolds = 3)
# summary(kcv.out)
# kcv <- summary(kcv.out)
# kcv$overview
# kcv$training2.ttests
# }
Run the code above in your browser using DataLab