# NOT RUN {
data(colon)
## Estimating the covariance matrix for the
## normal tissue group.
normal.group <- colon[, 1:40]
Sigmahat1 <- shrinkcovmat.equal(normal.group)
Sigmahat1
Sigmahat2 <- shrinkcovmat.identity(normal.group)
Sigmahat2
Sigmahat3 <- shrinkcovmat.unequal(normal.group)
Sigmahat3
# }
Run the code above in your browser using DataLab