if (FALSE) { # interactive()
if (.assert_package("multgee", boolean = TRUE)) {
library(multgee)
h <- housing
h$status <- factor(
h$y,
labels = c("street", "community", "independant")
)
mod <- multgee::nomLORgee(
status ~ factor(time) * sec,
data = h,
id = id,
repeated = time,
)
mod |> tidy_multgee()
mod2 <- ordLORgee(
formula = y ~ factor(time) + factor(trt) + factor(baseline),
data = multgee::arthritis,
id = id,
repeated = time,
LORstr = "uniform"
)
mod2 |> tidy_multgee()
}
}
Run the code above in your browser using DataLab