Merge branch 'issue#50' into 'master'

bug fixes for multiClass

See merge request !30

R-package/R/outer_procedure.r

@@ -148,6 +148,7 @@ multi_Class_Sampling <- function(in.raster,
     if (multiTest > 1) {
       test <- list()
       maFo <- list()
+      nuMod <- list()
       new.names <- list()
       new.acc <- list()
       decision = "0"
@@ -227,6 +228,7 @@ multi_Class_Sampling <- function(in.raster,
           }
           ########################
           maFo[[rs]] <- maFo_rf
+          nuMod[[rs]] < -num_models
           test[[rs]] <- maFo_rf@layer[[1]]
           new.names[[rs]] <- index
           new.acc[[rs]] <- acc
@@ -238,11 +240,6 @@ multi_Class_Sampling <- function(in.raster,
                 grDevices::windows()
               }
               attach(mtcars)
-              if (multiTest < 4) {
-                par(mfrow = c(multiTest, 1))  
-              } else {
-                par(mfrow = c(round(multiTest/4), multiTest %% 4))
-              }
             }
             par(mar = c(2, 2, 2, 3), mfrow = n2mfrow(multiTest))
             for (rr in 1:length(test)) {
@@ -277,9 +274,11 @@ multi_Class_Sampling <- function(in.raster,
         }
       }
       maFo_rf <- maFo[[as.numeric(decision)]]
+      num_models <- nuMod[[as.numeric(decision)]]
       index <- new.names[[as.numeric(decision)]]
       acc <- new.acc[[as.numeric(decision)]]
       remove(maFo)
+      remove(nuMod)
       remove(new.names)
       remove(new.acc)
       ##########################################################################