# NOT RUN {
# Example data included with package
data(CTTdata)
data(CTTkey)
# design matrix
q <- matrix(c(1,0,
1,0,
1,0,
1,0,
1,0,
1,0,
1,0,
1,0,
1,0,
1,1,
0,1,
0,1,
0,1,
0,1,
0,1,
0,1,
0,1,
0,1,
0,1,
0,1), ncol=2, byrow=TRUE)
subscales(CTTdata,q,c("T1","T2"),TRUE,TRUE,CTTkey)
# }
Run the code above in your browser using DataLab