Commit d44137fb authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Merge branch 'issue#50' into 'master'

bug fixes for multiClass

See merge request !30
parents a07ed204 f7b06a41
Pipeline #37311 passed with stages
in 13 minutes and 11 seconds
......@@ -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)
##########################################################################
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment