search for: modellin

...<- sample(index, trunc(length(index)*30/100)) testset <- dataset[testindex,] trainset <- dataset[-testindex,] tuned <- tune.svm(class~., data = trainset, gamma = 10^(-6:-1), cost = 10^(-1:1)) cc <- as.numeric(tuned$best.parameters[2]) gg <- as.numeric(tuned$best.parameters[1]) modellin <- svm(class ~ ., trainset, type = "C-classification", cost = cc, gamma = gg, kernel = "linear") modelpoly <- svm(class ~ ., trainset, type = "C-classification", cost = cc, gamma = gg, kernel = "polynomial") modelrad <- svm(class ~ ., trainset, type...