data(matrices)
data(exData)
### selecting a group of samples e.g. all L. peruviana species
Lpe <- which(exData$species == "L. peruviana")
### run function
specific <- msc.subset(matrices[["id97"]], subset = Lpe)
### visualize results (check if it is indeed specific)
heatmap(specific$matrix) # or:
msc.heatmap(specific$matrix, samples = exData$samples, groups = exData$species)
### find specific MSC with highest frequency
which.max(specific$freq)
Run the code above in your browser using DataLab