# load data
data(zoo)
# feature matrix without intercept
x <- zoo[,2:17]
# class vector
y <- zoo[,18]
# lambda vector
lam.vec <- (1:10)/10
#run 10 fold cross validation across lambdas
object <- cv.VDA_R(x, y, 10, lam.vec)
#plot
plot(object)
Run the code above in your browser using DataLab