Small bug fix in engine_gdb when full matrix weights are scaled (now to 1)

Author: Martin-Jung

NEWS.md

@@ -11,6 +11,7 @@
 * Small bug fixed related to manual provision of scenario thresholds.
 * `predictor_filter()` now also accepts [`SpatRaster`] objects as inputs.
 * Small fix so that bounding box extent is correctly printed #138
+* Small bug fix to `engine_gdb` in dev branch.
 
 # ibis.iSDM 0.1.5
 

R/engine_gdb.R

@@ -335,13 +335,11 @@ engine_gdb <- function(x,
       full <- model$predictors
       full <- subset(full, select = c('x','y',model$biodiversity[[1]]$predictors_names))
       full$cellid <- rownames(full) # Add row.names
-      full$w <- model$exposure
       full$Intercept <- 1
       full <- subset(full, stats::complete.cases(full))
       # Clamp?
       if( settings$get("clamp") ) full <- clamp_predictions(model, full)
-
-      full$w <- scale_weight(full$w)
+      full$w <- scale_weight(model$exposure)
       assertthat::assert_that(
         all(model$biodiversity[[1]]$predictors_names %in% names(full)),
         all(names(full[,model$biodiversity[[1]]$predictors_names]) %in% names(data)),

R/utils.R

@@ -322,6 +322,7 @@ thresholdval <- function(x, knot, sense = "gte") {
 #'
 #' @noRd
 scale_weight <- function(v, method = "scale"){
+  if(is.null(v)) return(1) # Return dummy 1 for equal weight
   assertthat::assert_that(
     length(v)>1,
     is.character(method)