# Quick Example:
# 1. Generate some data
set.seed(123)
sim_data <- generate_data(
nsub = 50, nobs = rep(5, 50), p = 10,
beta0 = c(rep(1, 5), rep(0, 5)), rho = 0.3
)
# 2. Fit the model using the formula interface
fit <- qpgee(
y ~ . - id,
data = sim_data,
id = sim_data$id,
tau = 0.5,
method = "HBIC"
)
# 3. View the summary of the results
summary(fit)
Run the code above in your browser using DataLab