# NOT RUN {
library(PeakSegDisk)
data(Mono27ac, envir=environment())
coverage.bedGraph <- file.path(
tempfile(),
"H3K27ac-H3K4me3_TDHAM_BP",
"samples",
"Mono1_H3K27ac",
"S001YW_NCMLS",
"problems",
"chr11-60000-580000",
"coverage.bedGraph")
dir.create(
dirname(coverage.bedGraph),
recursive=TRUE, showWarnings=FALSE)
writeBedGraph(Mono27ac$coverage, coverage.bedGraph)
fread.first(coverage.bedGraph, col.name.list$coverage)
fread.last(coverage.bedGraph, col.name.list$coverage)
# }
Run the code above in your browser using DataLab