Commit 60e28f3f authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

We need the ref_samples and switch so we can save the reference Sample Points.

parent 92e61fe8
...@@ -318,8 +318,8 @@ sample_nb <- function(raster, ...@@ -318,8 +318,8 @@ sample_nb <- function(raster,
obj <- new( obj <- new(
"Habitat", "Habitat",
models = list(), models = list(),
ref_samples = list(), ref_samples = points,
switch = vector(), switch = switch,
layer = layer, layer = layer,
mod_all = list(), mod_all = list(),
class_ind = 0, class_ind = 0,
......
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