# NOT RUN {
data(tumors)
# }
# NOT RUN {
res.ada <- adashrink(tumors[, -ncol(tumors)], method = "SURE")
res.hcpc <- HCPC(as.data.frame(res.ada$mu.hat), graph=F, consol = FALSE)
plot.HCPC(res.hcpc, choice = "map", draw.tree = "FALSE")
# }
Run the code above in your browser using DataLab