# 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)
print(out)
Run the code above in your browser using DataLab