require(ggpubr)
data(exData)
### run function
# \donttest{
depth <- msc.depth(depthstats = system.file("extdata",
exData$depthstats, package = "rKOMICS"), groups = exData$species,
HCN = exData$medGWD/2)
### visualize results
hist(depth$all[,"MEDIAN.DEPTH"], breaks=100,
main="Global median depth distribution",xlab = (''))
### alter plot
annotate_figure(depth$plots$CUM29A1, fig.lab = "CUM29A1",
fig.lab.pos = "bottom.right", fig.lab.face = 'italic')
# }
Run the code above in your browser using DataLab