## ------------------------------------------------------------------------
library(lamme)
data("schoene")
attach(schoene)
summary(schoene)
c('sd_pre'=sd(pre_HRT),'sd_post'=sd(post_HRT))
## ------------------------------------------------------------------------
abc(post_HRT,group,pre_HRT)
## ------------------------------------------------------------------------
lancova(post_HRT,group,pre_HRT)
## ------------------------------------------------------------------------
boot.es(post_HRT,group,pre_HRT)
## ------------------------------------------------------------------------
par(mfrow=c(2,2))
lanova(post_HRT,group)
## ------------------------------------------------------------------------
# power in three-group LANOVA with per-group sample size of 40 given small population
# effect
pwr.lanova(3,40,.01,.05)
# power in three-group LANCOVA with per-group sample size of 40 and pretest-posttest
# correlation of .5 given small population effect
pwr.lancova(3,40,.01,.5,.05)
## ------------------------------------------------------------------------
# sample size planning in three-group LANOVA with desired power of .8 and
# significance level of .05 given assumed small population effect
ss.lanova(3,.01,.8,.05)
# sample size planning in three-group LANOVA with desired power of .8 and
# significance level of .05 and pretest-posttest correlation of .5 given
# assumed small population effect
ss.lancova(3,.01,.5,.8,.05)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.