Rewrote svmplot.R to use 'model.frame' function