# load zoo data
# column 1 is name, columns 2:17 are features, column 18 is class
data(zoo)
# feature matrix without intercept
x<-zoo[,2:17]
# class vector
y<-zoo[,18]
#run VDA
out<-vda.r(x, y)
summary(out)
Run the code above in your browser using DataLab