#' Called by Retrospective Power
#' @export
retro_func <- function(x){
length(x)
}
#' @export
retro_pow_fun <- function (b_0 = b_0, b_treat = b_treat, icc, v_overall,
n_litters, pups_litter) {
dat <- litterEffects::data_generator(b_0 = b_0, b_treat = b_treat,
v_overall = v_overall, icc = icc,
n_litters = n_litters,
pups_litter = pups_litter)
m_lmer <- lmerTest::lmer(y ~ treat + (1 | litter), data = dat)
lmerTest::anova(m_lmer)[1, 6]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.