# NOT RUN {
require(serp)
set.seed(1)
n <- 200
y <- ordered(rbinom(n, 2, 0.5))
x1 <- factor(rbinom(n, 2, 0.7))
x2 <- runif(n)
## proportional odds model
sp <- serp(y ~ x1 * x2, link = "logit", slope = "parallel", reverse = TRUE)
brant.test(sp)
brant.test(sp, global = TRUE, call=TRUE)
# }
Run the code above in your browser using DataLab