comparison probecoverage.r @ 4:daec4df60281 draft

planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/probecoverage commit 2b4a222804a40730abdaec6fb6aefc2295e89e11

3:4f744d3aaf0b

    }
scaleFUN <- function(x) sprintf("%.3f", x)

## end of function
## let's do a dataframe before plotting
maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
graphpoints <- data.frame(1:maxdepth)
i <- 5
for (colonne in colnames(Table)[5:length(colnames(Table))]) {
    graphpoints <- cbind(graphpoints,  mapply(cumul, 1:maxdepth, rep(i, maxdepth)))
    i <- i + 1

4:daec4df60281

    }
scaleFUN <- function(x) sprintf("%.3f", x)

## end of function
## let's do a dataframe before plotting
if (args$method == 'bedtools') {
    maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
    } else {
    maxdepth <- trunc(max(Table[,5:length(Table)])) + 20
    }

graphpoints <- data.frame(1:maxdepth)
i <- 5
for (colonne in colnames(Table)[5:length(colnames(Table))]) {
    graphpoints <- cbind(graphpoints,  mapply(cumul, 1:maxdepth, rep(i, maxdepth)))
    i <- i + 1