Update do_rf.R

updating png names Front-end/#5
Model-R · Apr 18, 2018 · ae0ab16 · ae0ab16
1 parent 99fcce4
commit ae0ab16
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/do_rf.R b/R/do_rf.R
@@ -132,13 +132,17 @@ do_rf <- function(sp,
                                           sp, "_", i, ".tif"), overwrite = T)
 
    if (write_png == T) {
-       png(filename = paste0(partition.folder, "/rf", sp, "_", i, "%03d.png"))
+       png(filename = paste0(partition.folder, "/rf_cont_", sp, "_", i, ".png"))
        raster::plot(rf_cont, main = paste("RF raw", "\n",
                                           "AUC =", round(erf@auc, 2), "-",
                                           "TSS =", round(rf_TSS, 2)))
+      dev.off()
+      png(filename = paste0(partition.folder, "/rf_bin_", sp, "_", i, ".png")) 
       raster::plot(rf_bin, main = paste("RF P/A", "\n",
                                         "AUC =", round(erf@auc, 2), "-",
                                         "TSS =", round(rf_TSS, 2)))
+      dev.off()
+      png(filename = paste0(partition.folder, "/rf_cut_", sp, "_", i, ".png")) 
       raster::plot(rf_cut, main = paste("RF cut", "\n",
                                         "AUC =", round(erf@auc, 2), "-",
                                         "TSS =", round(rf_TSS, 2)))