data(exData)
### run function
# \donttest{
matrices <- msc.matrix(files = system.file("extdata", exData$ucs, package="rKOMICS"),
samples = exData$samples,
groups = exData$species)
# }
### or:
data(matrices)
### show matrix with id 95%
matrices[["id95"]]
rowSums(matrices[["id95"]]) # --> frequency of MSC across all samples
colSums(matrices[["id95"]]) # --> number of MSC per sample
Run the code above in your browser using DataLab