# NOT RUN {
##This may take more than 5s.
# }
# NOT RUN {
cattleA <- cattle[cattle$group=='A', ]
fit.acd <- jmcm(weight|id|I(ceiling(day/14+1))~1|1,
data = cattleA, cov.method = "acd",
triple = c(8,3,4))
cov.acd <- covjmcm_acd(fit.acd)
# }
Run the code above in your browser using DataLab