# NOT RUN {
library(exprso)
data(iris)
array <- exprso(iris[,1:4], iris[,5])
arrays <- splitSample(array, percent.include = 67)
array.train <- fsANOVA(arrays[[1]], top = 0)
array.train <- fsPrcomp(array.train, top = 3)
mach <- buildSVM(array.train, top = 5, kernel = "linear", cost = 1)
predict(mach, arrays[[2]])
# }
Run the code above in your browser using DataLab