library(shellpipes)
library(lme4)
d <- rdsRead()
summary(d)
poism <- glmer(inc ~ group*wave + (1 | date) + offset(log(susc))
, data = d, family = poisson(link = "log")
)
summary(poism)
saveVars(poism, d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.