Skip to content
Permalink
Browse files

Create script.r

  • Loading branch information
sus11005 committed Sep 28, 2016
1 parent 520470d commit f3b4290545a3415bfd64c3c16857aed1938d8a90
Showing with 8 additions and 0 deletions.
  1. +8 −0 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()

0 comments on commit f3b4290

Please sign in to comment.
You can’t perform that action at this time.