if(interactive()){
library(BSgenome.Mmusculus.UCSC.mm10)
path <- file.path(find.package("InPAS"), "extdata")
bedgraphs <- file.path(path, "Baf3.extract.bedgraph")
data(utr3.mm10)
tags <- "Baf3"
genome <- BSgenome.Mmusculus.UCSC.mm10
coverage <-
coverageFromBedGraph(bedgraphs, tags, genome, hugeData=FALSE)
}
Run the code above in your browser using DataLab