From ae0ab16231f2da1ab8d64ae96895a721706db04b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andrea=20S=C3=A1nchez=20Tapia?= Date: Wed, 18 Apr 2018 10:36:22 -0300 Subject: [PATCH] Update do_rf.R updating png names Front-end/#5 --- R/do_rf.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/R/do_rf.R b/R/do_rf.R index 6b5092b..ad86757 100644 --- 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)))