drop interactions when creating fixed matrix, poly

lebebr01 · May 8, 2024 · 56e9a70 · 56e9a70
1 parent 65f15bf
commit 56e9a70
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/fixef_sim.r b/R/fixef_sim.r
@@ -498,6 +498,9 @@ simulate_fixed <- function(data, sim_args, ...) {
       fixed_vars_poly_ns <- gsub("poly\\(|\\,.+\\)|ns\\(|\\,.+\\)", "", 
                                  fixed_vars_new[grepl("^poly|^ns", fixed_vars_new)]
       )
+      if(any(grepl(":", fixed_vars_poly_ns))) { 
+        fixed_vars_poly_ns <- fixed_vars_poly_ns[!grepl(":", fixed_vars_poly_ns)]
+        }
       Omat_poly_ns <- Omat[ , fixed_vars_poly_ns, drop = FALSE]
     } else {
       Omat_poly_ns <- NULL