# NOT RUN {
# set.seed(123)
# y <- as.matrix(ChickWeight$weight)
# X <- matrix(cbind(ChickWeight$Time, ChickWeight$Diet == 1), ncol = 2)
# N <- length(y)
# train <- sample(N, 100, replace = FALSE)
# outOfSample <- c(1:N)[-train]
# test <- sample(outOfSample, 10, replace = FALSE)
# fit <- bigKRLS(y[train], X[train,], instructions = FALSE)
# p <- predict(fit, X[test,])
# }
Run the code above in your browser using DataLab