Since we have removed all the NaNs from the raster, we do not need to omit the NaNs

R-package/R/model_opt.r

@@ -71,7 +71,6 @@ model_opt_r <- function(k,
     if (model == "rf") {
       model1 <-
         randomForest::randomForest(as.factor(classes) ~ .,
-                                   na.action = na.omit,
                                    data = data,
                                    mtry = mtry)
       if (is.na(mean(model1$err.rate[, 1])) == TRUE) {