Nothing
## ---- message=FALSE, warning=FALSE--------------------------------------------
library(simr)
## ----options, echo=FALSE, message=FALSE---------------------------------------
simrOptions(progress=FALSE)
## -----------------------------------------------------------------------------
cbpp$obs <- 1:nrow(cbpp)
gm1 <- glmer(cbind(incidence, size - incidence) ~ period + (1 | herd) + (1|obs), data=cbpp,
family=binomial)
summary(gm1)$coef
## -----------------------------------------------------------------------------
doTest(gm1, fixed("period", "lr"))
## -----------------------------------------------------------------------------
doTest(gm1, fixed("period2", "z"))
## -----------------------------------------------------------------------------
gm2 <- glmer(cbind(incidence, size - incidence) ~ period + size + (1 | herd), data=cbpp,
family=binomial)
doTest(gm2, fixed("size", "z"))
## -----------------------------------------------------------------------------
fixef(gm2)["size"] <- 0.05
powerSim(gm2, fixed("size", "z"), nsim=50)
## -----------------------------------------------------------------------------
fm1 <- lmer(angle ~ recipe * temp + (1|recipe:replicate), data=cake, REML=FALSE)
## -----------------------------------------------------------------------------
doTest(fm1, fcompare(~ recipe + temp))
## -----------------------------------------------------------------------------
fm2 <- lmer(angle ~ recipe + poly(temp, 2) + (1|recipe:replicate), data=cake, REML=FALSE)
summary(fm2)$coef
doTest(fm2, fcompare(~ recipe + temp))
## -----------------------------------------------------------------------------
data(budworm, package="pbkrtest")
bw1 <- glm(cbind(ndead, ntotal-ndead) ~ dose*sex, family="binomial", data=budworm)
summary(bw1)$coef
## -----------------------------------------------------------------------------
doTest(bw1, compare(. ~ dose + sex))
## -----------------------------------------------------------------------------
doTest(bw1, fixed("dose:sexmale", "z"))
## -----------------------------------------------------------------------------
re1 <- lmer(Yield ~ 1|Batch, data=Dyestuff)
doTest(re1, random())
## -----------------------------------------------------------------------------
fm1 <- lmer(Reaction ~ Days + (Days | Subject), data=sleepstudy)
## -----------------------------------------------------------------------------
doTest(fm1, compare( ~ Days + (1 | Subject)))
## ---- eval=FALSE--------------------------------------------------------------
# doTest(fm1, compare( ~ Days + (1 | Subject), "pb"))
## ---- eval=FALSE--------------------------------------------------------------
# doTest(fm1, rcompare( ~ (1 | Subject), "pb"))
## -----------------------------------------------------------------------------
binFit <- glm(formula = cbind(z, 10 - z) ~ x + g, family = binomial, data = simdata)
poisSim <- glm(formula = z ~ x + g, family = poisson, data = simdata)
coef(poisSim)[1:2] <- c(1, -0.05)
powerSim(binFit, sim=poisSim, nsim=50, seed=1)
## -----------------------------------------------------------------------------
ps <- lastResult()
ps$errors
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.