Restore original x axis direction for tradeoff plot
Change-Id: I02169a8abf019669cf11ade10102887af3af082d
diff --git a/R/idiomclassification_mk_pf.R b/R/idiomclassification_mk_pf.R
index 5209c75..7f6451c 100644
--- a/R/idiomclassification_mk_pf.R
+++ b/R/idiomclassification_mk_pf.R
@@ -106,8 +106,8 @@
# full range from precision almost 100% to recall almost 100%
rf_classifier = randomForest(fmla, train, importance=TRUE)
cvalues<-tibble()
-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))
+for (c in c(seq(from=0.4,to=0.99,by=0.025),0.999)) {
+ prediction_for_table <- predict(rf_classifier, test %>% select(-CO_IDIOM), cutoff = c(1-c, c))
conf<-confusionMatrix(prediction_for_table, test$CO_IDIOM, positive = "idiom")
cvalues <-bind_rows(cvalues, c(cutoff=c, conf$byClass))
}