# NOT RUN {
fit.mcd <- jmcm(I(sqrt(cd4)) | id | time ~ 1 | 1, data = aids,
triple = c(8, 1, 3), cov.method = 'mcd')
beta <- getJMCM(fit.mcd, "beta")
BIC <- getJMCM(fit.mcd, "BIC")
Di <- getJMCM(fit.mcd, "D", 10)
# }
Run the code above in your browser using DataLab