search for: n4740595

...train[, -8]) error.1.svm <- train$revenues - pred.1.svm rmse(error.1.svm) 0.3695311 pred.1.svm.test <- predict (mod.1, test[, -8]) error.1.svm.test <- test$revenues - pred.1.svm.test rmse(error.1.svm.test) 0.412292 Find attached my data. train.txt<http://r.789695.n4.nabble.com/file/n4740595/train.txt> test.txt<http://r.789695.n4.nabble.com/file/n4740595/test.txt> And rmse: function(error) { sqrt(mean(error^2, na.rm= TRUE)) } Thanks in advance, [[alternative HTML version deleted]]