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

Different initialization

parent e1d9e630
......@@ -266,13 +266,13 @@ sample_nb <- function(raster,
} else {
obj <- new(
"Habitat",
models = NULL,
ref_samples = NULL,
switch = NULL,
models = list(),
ref_samples = list(),
switch = vector(),
layer = layer,
mod_all = NULL,
class_ind = NULL,
seeds = NULL
mod_all = list(),
class_ind = 0,
seeds = 0
)
}
out <- list(index = index, acc = acc, obj = obj)
......
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