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