##Example 6 from Hatzinger & Rusch (2009)
groups <- c(rep("TG",30),rep("CG",30))
llra1 <- LLRA(llradat3,mpoints=2,groups=groups)
llra1
if (FALSE) {
##An LLRA with 2 treatment groups and 1 baseline group, 5 items and 4
##time points. Item 1 is dichotomous, all others have 3, 4, 5, 6
##categories respectively.
dats <- llraDat2[1:20]
groups <- llraDat2$group
tps <- 4
#baseline CG
ex2 <- LLRA(dats,mpoints=tps,groups=groups)
#baseline TG1
ex2a <- LLRA(dats,mpoints=tps,groups=groups,baseline="TG1")
#summarize results
summary(ex2)
summary(ex2a)
#plotting
plotGR(ex2)
plotTR(ex2)}
Run the code above in your browser using DataLab