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

It should be names and not colnames.

parent 25f3bef5
...@@ -113,7 +113,7 @@ sample_nb <- function(raster, ...@@ -113,7 +113,7 @@ sample_nb <- function(raster,
1:nb_mean, 1:nb_mean,
model_opt_r, model_opt_r,
raster = rast, raster = rast,
col_names = colnames(raster), col_names = names(raster),
sample_type = sample_type, sample_type = sample_type,
buffer = buffer, buffer = buffer,
model = model, model = model,
...@@ -139,7 +139,7 @@ sample_nb <- function(raster, ...@@ -139,7 +139,7 @@ sample_nb <- function(raster,
for (k in 1:nb_mean) { for (k in 1:nb_mean) {
res <- model_opt_r( res <- model_opt_r(
raster = rast, raster = rast,
col_names = colnames(raster), col_names = names(raster),
sample_type = sample_type, sample_type = sample_type,
buffer = buffer, buffer = buffer,
model = model, model = model,
......
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