## generating training data
x = rbind(0.5+matrix(rnorm(100),50,2),-0.5+matrix(rnorm(100),50,2))
x = cbind(x,matrix(rnorm(800),100,8))
## generating labels
y = c(rep(1,50),rep(-1,50))
## Training
fit = l1svm(x,y)
fit
## plotting solution path
plot(fit)
## generating testing data
xt = rbind(0.5+matrix(rnorm(200),50,2),-0.5+matrix(rnorm(200),50,2))
xt = cbind(xt,matrix(rnorm(1600),100,8))
## predicting labels
out = predict(fit,newdata=xt)
Run the code above in your browser using DataLab