# 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
# searching for the best pair
lambda <- cv.VDA_LE(x, y, kfold=3, lam.vec.1, lam.vec.2)$lam.opt
# run VDA
out <- VDA_LE(x,y,lambda[1], lambda[2])
Run the code above in your browser using DataLab