kmed (version 0.0.1)

clustheatmap: A consensus matrix heatmap from A consensus matrix

Description

This function create a consensus matrix heatmap from a consensus matrix.

Usage

clustheatmap(consmat, title = "")

Arguments

consmat

A matrix of consensus matrix.

title

A character of plot title

Value

Function returns a heatmap plot.

Details

This is a function to produce a consensus matrix heatmap from a consensus matrix.

Examples

# NOT RUN {
num <- as.matrix(iris[,1:4])
mrwdist <- distNumeric(num, num, method = "mrw")
parkboot <- function(x, nclust) {
res <- fastkmed(x, nclust, iterate = 50)
return(res$cluster)
}
irisboot <- clustboot(mrwdist, nclust=3, parkboot, nboot=7)
wardorder <- function(x, nclust) {
res <- hclust(x, method = "ward.D2")
member <- cutree(res, nclust)
return(member)
}
consensusiris <- consensusmatrix(irisboot, nclust = 3, wardorder)
clustheatmap(consensusiris)

# }