fix table

R/anova.qmd

@@ -14,7 +14,7 @@ library(emmeans)
 library(broom)
 library(knitr)
 
-knitr::opts_chunk$set(echo = TRUE, cache = TRUE)
+knitr::opts_chunk$set(echo = TRUE)
 
 df_disease <- 
   read_csv(

index.qmd

@@ -14,6 +14,9 @@ The goal of this project is to demystify conflicting results between software an
 
 The repository below provides examples of statistical methodology in different software and languages, along with a comparison of the results obtained and description of any discrepancies.
 
+
+
+
 ```{r}
 #| echo: false
 #| message : false
@@ -36,12 +39,17 @@ method_tbl <- read_csv("data/stat_method_tbl.csv", show_col_types = FALSE) %>%
 
 
 gt(method_tbl, groupname_col = "method_grp",
-   rowname_col = "method_subgrp") %>% 
-      tab_options(row_group.as_column = TRUE) %>% 
+   rowname_col = "method_subgrp") |>
+      tab_options(row_group.as_column = TRUE) |>
     cols_label(method_subgrp = "Methods", 
                r_links = "R", 
                sas_links = "SAS", 
-               comparison_links = "Comparison") %>% 
+               comparison_links = "Comparison") |> 
+   cols_width(
+    r_links ~ px(75),
+    sas_links ~ px(75),
+    comparison_links ~ px(75)
+  ) |>
   tab_stubhead("Methods") %>% 
   tab_style(
     style = cell_borders(
@@ -54,7 +62,7 @@ gt(method_tbl, groupname_col = "method_grp",
       columns = ends_with("links"),
       rows = everything()
     )
-  )
+  ) 
   
 
 ```