Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Create script.r
  • Loading branch information
sus11005 committed Sep 28, 2016
1 parent 520470d commit f3b4290
Showing 1 changed file with 8 additions and 0 deletions.
8 changes: 8 additions & 0 deletions 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.