tmp <- importFusionData("fusionmap", paste(find.package(package="chimera"),"/examples/mcf7.FMFusionReport", sep=""), org="hg19")
fusion.names <- fusionName(tmp)
tmp1 <- filterList(tmp, type="fusion.names", fusion.names[c(1,3,7)], parallel=FALSE)
tmp2 <- filterList(tmp, type="spanning.reads", query=2, parallel=FALSE)
#tmp3 <- filterList(tmp, type="intronic")
#tmp4 <- filterList(tmp, type="annotated.genes", parallel=FALSE)
#tmp5 <- filterList(tmp, type="read.through", parallel=FALSE)
#csdf.of <- oncofuseRun(csdf.e, tissue="EPI")
#tmp6 <- filterList(csdf.e[1:100],oncofuse.output=csdf.of, type="oncofuse", oncofuse.type="g5g3CDS", parallel=TRUE)
#tmp7 <- filterList(csdf.e[1:100],oncofuse.output=csdf.of, type="oncofuse", oncofuse.type="passenger.prob", query=0.1, parallel=TRUE)
Run the code above in your browser using DataLab