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