Update title in README; rebuild

2026-01-09 17:16:31 +01:00
parent d411821974
commit f029510984
9 changed files with 18 additions and 21 deletions
@@ -35,7 +35,7 @@ dat <- data.frame(
  A = factor(rep(1:2, each = n/2), labels = c("low", "high")),
  B = factor(rep(rep(1:2, each = n/4), 2), labels = c("low", "high"))
 )
-X <- model.matrix(~ A*B, dat)
+X <- model.matrix(~ A * B, dat)
 unique(X)
 ```

@@ -73,7 +73,7 @@ boxplot(t(out))
 ``` r
 pval <- replicate(2000, {
  y <- means + rnorm(n, sd = 10)
-  m <- aov(y ~ A*B, dat)
+  m <- aov(y ~ A * B, dat)
  summary(m)[[1]]$"Pr(>F)"[3]      # test of interaction
 })
 mean(pval < 0.05)