file <- system.file("extdata",
"Liver-HCC.exposure.csv",
package = "mSigTools"
)
exposure <- read_exposure(file)
old.par <- par(mar = c(8, 5, 1, 1))
plot_exposure(exposure[, 1:30],
main = "Liver-HCC exposure", cex.yaxis = 0.8,
plot.proportion = TRUE
)
par(old.par)
Run the code above in your browser using DataLab