# load data
data(zoo)
# feature matrix without intercept
x <- zoo[,2:17]
# class vector
y <- zoo[,18]
# lambda vector
lam.vec <- (1:10)/10
# searching for the best lambda with 10-fold cross validation
obj <- cv.VDA_R(x, y, 10, lam.vec)
# run VDA
out <- VDA_R(x,y,obj$lam.opt)
Run the code above in your browser using DataLab