Uncomment code.

R-package/R/model_opt.r

@@ -55,10 +55,10 @@ model_opt_r <- function(k,
       if (sample_type == "regular") {
         pbt <- raster::sampleRegular(rast, size = sample_size, sp = T)
       }
-     #f <- which(is.na(pbt@data[1]))
-     #if (length(f) != 0) {
-     #  pbt <- pbt[-f,]
-     #}
+     f <- which(is.na(pbt@data[1]))
+     if (length(f) != 0) {
+       pbt <- pbt[-f,]
+     }
       set.seed(seed2[k])
       classes <-
         as.factor(sample(c(1:2), size = nrow(pbt), replace = T))