bug!: update downstream code in tbl-deviation-similarity-convergence-…

…singularity-yi #42
egouldo · Sep 2, 2024 · 9d83744 · 9d83744
1 parent bcba166
commit 9d83744
Showing 1 changed file with 11 additions and 10 deletions.
diff --git a/supp_mat/SM3_ExplainingDeviation.qmd b/supp_mat/SM3_ExplainingDeviation.qmd
@@ -1054,32 +1054,33 @@ patchwork::wrap_plots(yi_sorensen_plots,heights = 4, byrow = TRUE) +
 #| message: false
 
 yi_singularity_convergence_sorensen_mixed_mod %>% 
-  filter(dataset != "blue tit" | str_detect(model_name, 
-                                            "random", 
-                                            negate = TRUE)) %>% 
-  select(-params) %>% 
+  select(-model_params) %>% 
+  group_by(model_name) %>% 
   gt::gt(rowname_col = "dataset") %>% 
   gt::tab_style(locations = cells_body(rows = str_detect(dataset, "Eucalyptus"),
                                        columns = dataset),
                 style = cell_text(style = "italic")) %>% 
   gt::cols_label(dataset = "Dataset",
                  estimate_type = "Estimate Type",
                  singularity = "Singular Fit?",
-                 convergence = "Model converged?") %>% 
+                 convergence = "Model converged?",
+                 SE_calc = "Can random effects SE be calculated?",
+                 CI_calc = "Can random effects CI be calculated?") %>% 
   gt::opt_stylize(style = 6, color = "gray") %>% 
-  tab_style(
+   tab_style(
     style = list(
       cell_fill(color = scales::alpha("red", 0.6)),
       cell_text(color = "white", weight = "bold")
     ),
     locations = list(
       cells_body(columns = "singularity", rows = singularity == TRUE),
-      cells_body(columns = "convergence", rows = convergence == FALSE)
-    )
-  )  %>% 
+      cells_body(columns = "convergence", rows = convergence == FALSE),
+      cells_body(columns = "SE_calc", rows = SE_calc == FALSE),
+      cells_body(columns = "CI_calc", rows = CI_calc == FALSE)
+    )) %>% 
   gt::text_transform(fn = function(x) ifelse(x == TRUE, "yes", "no" ),
                      locations = cells_body(columns = c("singularity",
-                                                        "convergence")
+                                                        "convergence", "SE_calc", "CI_calc")
                      )) %>% 
   gt::text_transform(
     locations = cells_stub(