# an artificial data frame with two five-category responses and two factors
set.seed(10)
da <- expand.grid("Y1"=1:5,"Y2"=1:5,"fat1"=letters[1:3],"fat2"=letters[1:3])
da$Freq <- sample(1:20,5*5*3*3,replace=TRUE)
#A partial proportional-odds model with uniform association
m2 <- pblm(fo1=cbind(Y1,Y2) ~ fat1 + fat2,
fo2=~fat1,
fo12=~1,
data=da, weights=da$Freq,
proportional=pblm.prop(prop1=c(FALSE,TRUE,TRUE,FALSE,FALSE),
prop2=c(FALSE,TRUE,TRUE),
prop12=c(TRUE)))
summary(m2)
Run the code above in your browser using DataLab