The blue social bookmark and publication sharing system.
Log in with your username.
I've lost my password.
Log in with your OpenID-Provider.
formula <- as.formula(factor(DIABETE2) ~ . ); svm.tune <- tune.svm(formula, data = train.set, gamma = 10^(-3:0), cost = 10^(-1:1)); svm.model <- svm(formula, data = train.set, kernel = "linear", gamma = svm.tune$best.parameters$gamma, cost = svm.tune$best.parameters$cost);
train.pred <- predict(svm.model, train.set); test.pred <- predict(svm.model, test.set); svm.table <- table(pred = test.pred, true = test.result); print(svm.table);