data(colon)
normal_group <- colon[, 1:40]
tumor_group <- colon[, 41:62]
sigma_hat_normal_group <- shrinkcovmat.equal(normal_group)
sigma_hat_normal_group
sigma_hat_tumor_group <- shrinkcovmat.equal(tumor_group)
sigma_hat_tumor_group
Run the code above in your browser using DataLab