#LLTM for 2 measurement points
#100 persons, 2*15 items, W generated automatically
data(lltmdat1)
res1 <- LLTM(lltmdat1, mpoints = 2)
print(res1)
summary(res1)
#Reparameterized Rasch model as LLTM (more pasimonious)
data(lltmdat2)
W <- matrix(c(1,2,1,3,2,2,2,1,1,1),ncol=2) #design matrix
res2 <- LLTM(lltmdat2, W = W)
print(res2)
summary(res2)
Run the code above in your browser using DataLab