rm unfinished thought

PredictiveEcology · Apr 19, 2024 · 8c5c4bc · 8c5c4bc
1 parent 17612b8
commit 8c5c4bc
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/calcVars.R b/R/calcVars.R
@@ -104,9 +104,8 @@ calcATA <- function(stacks, layers, .dots = NULL) {
   type_periods <- grep(paste0("(", paste0(type, collapse = "|"), ")_period"), names(.dots), value = TRUE)
   stack_years <- stacks[paste0(gsub("_years", "", type_years), "_", .dots[[type_years]])]
   stack_periods <- stacks[paste0(gsub("_period", "", type_periods), "_", .dots[[type_periods]])]
-  stack_periods <- stack_periods[grep("MAT", x = )]
-  checkCalcStackLayers(append(stack_years, stack_periods), layers)
   stack_periods <- lapply(stack_periods, terra::subset, subset = "MAT_normal")
+  checkCalcStackLayers(append(stack_years, stack_periods), layers)
   MAT_norm_mean <- rast(stack_periods) |> terra::app(fun = mean, na.rm = TRUE)
 
   ATAstack <- lapply(stack_years,  function(x) {