fix note

pedersen-fisheries-lab · Mar 3, 2022 · 8701af3 · 8701af3
1 parent 6d10206
commit 8701af3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/smooths-types.R b/R/smooths-types.R
@@ -206,11 +206,11 @@ ICAR_s_space_time <- function(patches, space, time_levels, bs, xt, vars, k, is_s
   xt_list <- list(xt = list(ret_time$xt_list, ret_space$xt_list))
 
   if(!is.null(xt_list$xt[[1]])){
-    xt_list$xt[[1]] <- list(penalty = rlang::expr(pen_mat_time))
+    xt_list$xt[[1]] <- list(penalty = str2lang("pen_mat_time"))
   }
 
   if(!is.null(xt_list$xt[[2]])){
-    xt_list$xt[[2]] <- list(penalty = rlang::expr(pen_mat_space))
+    xt_list$xt[[2]] <- list(penalty = str2lang("pen_mat_space"))
   }
 
   return(list(k = k, bs = bs, xt = xt, vars = vars, xt_list = xt_list))