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)
CP <- CPsites(coverage=coverage, gp1=tags, gp2=NULL, genome=genome,
utr3=utr3.mm10, coverage_threshold=5, long_coverage_threshold=5)
res <- utr3UsageEstimation(CP, coverage,
utr3.mm10, genome, gp1=tags, gp2=NULL)
}
Run the code above in your browser using DataLab