.

LGraz · Nov 17, 2024 · b2db4fe · b2db4fe
1 parent 8989fb0
commit b2db4fe
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 10 deletions.
diff --git a/_posts/2024-07-26-lmer_vs_ttests-new.md b/_posts/2024-07-26-lmer_vs_ttests-new.md
@@ -209,11 +209,11 @@ t.test(COEFS$Fatigued)$p.value
 
 ## Type I Error & Power
 
-<details class="code-fold">
-<summary>Simulation Code</summary>
-
 ``` r
-# Setup auxiliary functions  =========================
+##| code-fold: true
+##| code-summary: "Simulation Code"
+
+# Setup auxiliary functions
 get_type1_CI <- function(P.vals){
   C.int <- apply(P.vals < 0.05, 1, function(x)
     prop.test(sum(x), length(x), p = 0.05)$conf.int |> round(4))
@@ -289,8 +289,6 @@ ggplot(H_all, aes(x = test, y = `Power`, ymin = lwr, ymax = upr)) +
   xlab("")
 ```
 
-</details>
-
 ![](../quarto/lmer-slopes-new/lmer_vs_ttests-new_files/figure-commonmark/Ex-sim-1.png)
 
 # Power-Simulations
@@ -354,7 +352,7 @@ simr::makeLmer(
     #> Formula: Y ~ Fatigued + Caffein + Physical_Activity + Time + (Fatigued +  
     #>     Caffein + Physical_Activity + Time | PersonID)
     #>    Data: D
-    #> REML criterion at convergence: 1982
+    #> REML criterion at convergence: 2018
     #> Random effects:
     #>  Groups   Name              Std.Dev. Corr               
     #>  PersonID (Intercept)       1                           

diff --git a/quarto/lmer-slopes-new/lmer_vs_ttests-new.qmd b/quarto/lmer-slopes-new/lmer_vs_ttests-new.qmd
@@ -151,9 +151,10 @@ t.test(COEFS$Fatigued)$p.value
 
 ## Type I Error & Power  {.smaller}
 ```{r Ex-sim}
-#| code-fold: true
-#| code-summary: "Simulation Code"
-# Setup auxiliary functions  =========================
+##| code-fold: true
+##| code-summary: "Simulation Code"
+
+# Setup auxiliary functions
 get_type1_CI <- function(P.vals){
   C.int <- apply(P.vals < 0.05, 1, function(x)
     prop.test(sum(x), length(x), p = 0.05)$conf.int |> round(4))