# NOT RUN {
attach(AusCredit)
## model training
model <- svmmaj(X[1:400,],y[1:400],hinge='quadratic', lambda=1)
## model prediction
q4 <- predict(model,X[-(1:400),],y[-(1:400)],show.plot=TRUE)
q4
# }
Run the code above in your browser using DataLab