path <- file.path(find.package("InPAS"), "extdata")
load(file.path(path, "CPs.MAQC.rda"))
load(file.path(path, "coverage.MAQC.rda"))
library(BSgenome.Hsapiens.UCSC.hg19)
data(utr3.hg19)
res <- testUsage(CPsites=CPs,
coverage=coverage,
genome=BSgenome.Hsapiens.UCSC.hg19,
utr3=utr3.hg19,
method="fisher.exact",
gp1=c("Brain.auto", "Brain.phiX"),
gp2=c("UHR.auto", "UHR.phiX"))
filterRes(res,
gp1=c("Brain.auto", "Brain.phiX"),
gp2=c("UHR.auto", "UHR.phiX"),
background_coverage_threshold=2,
P.Value_cutoff=0.05,
adj.P.Val_cutoff=0.05,
dPDUI_cutoff=0.3,
PDUI_logFC_cutoff=.59)
Run the code above in your browser using DataLab