item_block12 = filter(items_df, block %in% c("1", "2")) %>%
filter(!is.infinite(seconds_log)) # this was added post pre-registration
mod.format_b1 = glmmTMB(seconds_log~format + (1|block) + (1|proid),
data = item_block12)
tidy(aov(mod.format_b1))# A tibble: 4 × 6
term df sumsq meansq statistic p.value
<chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 format 3 405. 135. 453. 1.16e-291
2 block 1 69.3 69.3 233. 1.70e- 52
3 proid 974 8030. 8.24 27.7 0
4 Residuals 73111 21768. 0.298 NA NA

