Use rast in all operations.

R-package/R/model_opt.r

@@ -50,10 +50,10 @@ model_opt_r <- function(k,
       if (sample_type == "random") {
         set.seed(seed2[k])
         pbt <-
-          raster::sampleRandom(raster, size = sample_size, sp = T)
+          raster::sampleRandom(rast, size = sample_size, sp = T)
       }
       if (sample_type == "regular") {
-        pbt <- raster::sampleRegular(raster, size = sample_size, sp = T)
+        pbt <- raster::sampleRegular(rast, size = sample_size, sp = T)
       }
      #f <- which(is.na(pbt@data[1]))
      #if (length(f) != 0) {
@@ -156,7 +156,7 @@ model_opt_r <- function(k,
      if (ncol(test1) == 1) {
         test1 <- t(test1)
       }
-      colnames(test1) <- names(raster)
+      colnames(test1) <- names(rast)
           }
     if (class(test1)[1] == "numeric") {
       test1 <- t(matrix(test1))