Nothing
## ----setup, include=FALSE, cache=FALSE-----------------------------------------------
library(knitr)
set.seed(123)
options(width=87)
opts_chunk$set(background="#ffffff", comment="#", collapse=FALSE,
fig.width=9, fig.height=9, warning=FALSE,
message=FALSE)
## ------------------------------------------------------------------------------------
library(mitml)
data(leadership)
## ------------------------------------------------------------------------------------
summary(leadership)
## ---- echo=FALSE---------------------------------------------------------------------
leadership[73:78,]
## ------------------------------------------------------------------------------------
fml <- list( JOBSAT + NEGLEAD + WLOAD ~ 1 + (1|GRPID) , # Level 1
COHES ~ 1 ) # Level 2
## ---- results="hide"-----------------------------------------------------------------
imp <- jomoImpute(leadership, formula = fml, n.burn = 5000, n.iter = 250, m = 20)
## ------------------------------------------------------------------------------------
summary(imp)
## ------------------------------------------------------------------------------------
implist <- mitmlComplete(imp, "all")
## ---- echo=FALSE---------------------------------------------------------------------
implist[[1]][73:78,]
## ---- echo=F-------------------------------------------------------------------------
cat("Author: Simon Grund (simon.grund@uni-hamburg.de)\nDate: ", as.character(Sys.Date()))
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.