data(exData)
### run function
map <- msc.quality(mapstats = system.file("extdata", exData$mapstats, package = "rKOMICS"),
exData$species)
lapply(map$proportions, mean)$MR_HQ
lapply(map$proportions, mean)$MR_CSB3_HQ
### visualize results
barplot(map$proportions$MR)
Run the code above in your browser using DataLab