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