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