Merge branch 'plot_final_map' into 'master'

changed order of lines for avoiding NA in the final map

Closes #51

See merge request !31

R-package/R/plot_results.r

@@ -87,8 +87,8 @@ plot_results <- function(inPath, color = NULL) {
     for (i in 1:(length(files) + 1)) {
         if (i == (length(files) + 1)) {
             dummy <- raster::raster(files[(i - 1)])
-            dummy[dummy < thres[(i - 1)]] <- i
             dummy[dummy >= thres[(i - 1)]] <- NA
+            dummy[dummy < thres[(i - 1)]] <- i
             class[[i]] <- dummy
         } else {
             dummy <- raster::raster(files[i])