R/summary.iC10.R

In iC10: A Copy Number and Expression-Based Classifier for Breast Tumours

summary.iC10 <- function(object,...) {
    cat("\nDistribution of samples\n")
    print(table(object$class))
    cat("\nSummary of probablities of assignment for all samples:\n")
    tmp <- apply(object$posterior, 2, max)
    summary(tmp)
}