Nothing
## ----setup, echo = TRUE, eval = TRUE, include=FALSE---------------------------
knitr::opts_chunk$set(echo = TRUE, eval = TRUE, message = FALSE, warning = FALSE)
## ---- echo=FALSE--------------------------------------------------------------
library("eirm")
## -----------------------------------------------------------------------------
data("VerbAgg")
head(VerbAgg)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# mod1 <- eirm(formula = "r2 ~ -1 + item + (1|id)", data = VerbAgg)
# print(mod1)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# print(mod1, difficulty = TRUE)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# theta <- ranef(mod1$model)$id
# head(theta)
## ---- echo = TRUE, eval = TRUE------------------------------------------------
mod2a <- eirm(formula = "r2 ~ -1 + situ + btype + mode + (1|id)", data = VerbAgg)
print(mod2a)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# plot(mod2a)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# plot(mod2a, difficulty = TRUE, main = "Verbal Aggression Example", latdim = "Verbal Aggression")
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# mod2b <- eirm(formula = "r2 ~ -1 + situ + btype + (1|id)", data = VerbAgg)
#
# anova(mod2a$model, mod2b$model)
## ---- echo = TRUE, eval = TRUE------------------------------------------------
VerbAgg2 <- polyreformat(data=VerbAgg, id.var = "id", long.format = FALSE,
var.name = "item", val.name = "resp")
head(VerbAgg2)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# mod3 <- eirm(formula = "polyresponse ~ -1 + situ + btype + mode + (1|id)",
# data = VerbAgg2)
## ---- echo = TRUE, eval = FALSE-----------------------------------------------
# mod4 <- eirm(formula = "polyresponse ~ -1 + btype + situ + mode +
# polycategory + polycategory:btype + (1|id)", data = VerbAgg2)
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.