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