From f3b4290545a3415bfd64c3c16857aed1938d8a90 Mon Sep 17 00:00:00 2001
From: Subrata Saha <subrata.saha@uconn.edu>
Date: Wed, 28 Sep 2016 11:11:30 -0400
Subject: [PATCH] Create script.r

---
 POMP-PRUNE/script.r | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 POMP-PRUNE/script.r

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()