CoreAlg <- function(X, y){ #try different values of nu svn_itor <- 3 res <- function(i){ if(i==1){nus <- 0.25} if(i==2){nus <- 0.5} if(i==3){nus <- 0.75} model<-e1071::svm(X,y,type="nu-regression",kernel="linear",nu=nus,scale=F) model } if(Sys.info()['...
the SVM, BSWiMS, and RF using the training data sets. SVM was fitted to male and female by training original data using the radial basis function, and we did not attempt to optimize any of the SVM parameters. Once trained, we predicted the validation and testing sets. For BSWiMS and RF...