data(exData)
data(matrices)
### run function
msc.heatmap(matrices[["id80"]], groups = exData$species,
samples = exData$samples )
### run function on every cluster matrix with subset of samples
### you will be asked to confirm
table(exData$species)
hybrid <- which(exData$species=="hybrid")
# msc.heatmap(matrices[["id97"]], groups = exData$species[hybrid],
# samples = exData$samples[hybrid])
Run the code above in your browser using DataLab