diff --git a/POMP-PRUNE/script.r b/POMP-PRUNE/script.r new file mode 100644 index 0000000..20198c9 --- /dev/null +++ b/POMP-PRUNE/script.r @@ -0,0 +1,8 @@ +library("e1071", lib.loc="R-packages/") +sink("predict.info") +training_set <- read.table("pos_neg.info", header = TRUE) +test_set <- read.table("statistics.info", header = TRUE) +svm.model <- svm(class~., data = training_set, kernel = "radial", cost = 10000, gamma = 0.00001, class.weights = c(P = 0.75, N = 0.25)) +svm.predict <- predict(svm.model, test_set) +svm.predict +sink()