Fscore over the full range
Change-Id: Iee2355e074f71b2a799d011b86757087574b05bc
diff --git a/R/idiomclassification_mk_pf.R b/R/idiomclassification_mk_pf.R
index 8104878..f6f40e9 100644
--- a/R/idiomclassification_mk_pf.R
+++ b/R/idiomclassification_mk_pf.R
@@ -103,9 +103,10 @@
View(collected_results)
# Analysing tradeoff between Fscore, Recall, Precision for various cutoffs
+# full range from precision almost 100% to recall almost 100%
rf_classifier = randomForest(fmla, train, importance=TRUE)
cvalues<-c()
-for (c in seq(from=0.05, to=0.5, by=0.025)) {
+for (c in c(0.001, seq(from=0.05,to=0.5,by=0.025))) {
prediction_for_table <- predict(rf_classifier, test %>% select(-CO_IDIOM), cutoff = c(c, 1-c))
conf<-confusionMatrix(prediction_for_table, test$CO_IDIOM, positive = "idiom")
cvalues<-rbind(cvalues,c(c,conf$byClass))