# NOT RUN {
reg <- liquidData('reg-1d')
model <- init.liquidSVM(Y~., reg$train)
trainSVMs(model, command.args=list(L=2, T=2, d=1))
selectSVMs(model, command.args=list(R=0,d=2))
result <- test(model, reg$test, command.args=list(T=1, d=0))
# }
Run the code above in your browser using DataLab