# load reading example data set
data(data.read)
# define testlet matrix
testlet.matrix <- data.frame( substring( colnames(data.read),1,1) , colnames(data.read))
# Rasch model
mod <- rasch.testlet.glmer(data.read )
# linear probability model
mod <- rasch.testlet.glmer(data.read , link = "linear")
# cloglog link function
mod <- rasch.testlet.glmer(data.read , link = "cloglog")
# Rasch testlet model
mod <- rasch.testlet.glmer(data.read , testlet.matrix = testlet.matrix )
## [...]
## Standard deviations
## effect SD
## 1 trait 1.060
## 2 A 0.682
## 3 B 0.000
## 4 C 1.570
## 5 Residual 1.814
##
## EAP reliability: 0.534
# Rasch testlet models (with two testlets and
# some items without any testlet structure)
mod <- rasch.testlet.glmer(data.read ,
testlet.matrix = testlet.matrix[ c(1:4 , 9:12) , ] )
# linear probability model with testlet structure
mod <- rasch.testlet.glmer(data.read , testlet.matrix = testlet.matrix , link="linear")
# loglog link function with testlet structure
mod <- rasch.testlet.glmer(data.read , testlet.matrix = testlet.matrix , link="loglog")
Run the code above in your browser using DataLab