ed <- ExpData(system.file(package = "Genominator", "sample.db"),
tablename = "raw")
data("yeastAnno")
a <- computeCoverage(ed, yeastAnno, effort = 2^(5:18),
cutoff = function(x, ...) x > 1)
plot(a, lwd = 5, col = "grey")
plot(a, draw.totals = FALSE)
ygroups <- rep(c("mut", "wt"), c(2,2))
b <- computeCoverage(ed, yeastAnno, grups = ygroups,
effort = 2^(5:18), cutoff = function(x, ...) x > 1)
plot(b)
b <- computeCoverage(ed, yeastAnno, groups = ygroups,
effort = 2^(5:18), cutoff = function(x, ...) x > 3,
smooth = function(probs) {
probs = probs + min(probs[probs!=0])
probs = probs/sum(probs)
})
plot(b)
Run the code above in your browser using DataLab