Commit 817e6838 authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

We should check the class type and not the content.

parent a290cbd4
Pipeline #24196 passed with stages
in 3 minutes and 56 seconds
......@@ -79,7 +79,7 @@ sample_nb <- function(raster,
n <- nb_it
sample_size <- r
max_samples_per_class <- sample_size * 5
if (init.seed == "sample") {
if (class(init.seed) == "character" && init.seed == "sample") {
seed2 <- sample(c(1:1000000), size = nb_mean, replace = F)
} else {
seed2 <- init.seed
......
Markdown is supported
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