data(Water)
model <- CrossGEE(response="LCC", covar=c("Age"), period="Period",
treatment = "Treatment", id="ID", carry="Carry_Agua",
family=gaussian(),correlation ="AR-M", Mv=1 ,data=Water)
model$QIC
model$model
## Aproximate p-values
(pvalues <- 2 * pnorm(abs(coef(summary(model$model))[,5]), lower.tail = FALSE))
summary(model$model)
Run the code above in your browser using DataLab