# NOT RUN {
data(colon)
normal.group <- colon[, 1:40]
colon.group <- colon[, 41:62]
Sigmahat.normal <- shrinkcovmat.equal(normal.group)
Sigmahat.normal
Sigmahat.colon <- shrinkcovmat.equal(colon.group)
Sigmahat.colon
# }
Run the code above in your browser using DataLab