R/addGA.R

#insert DNAStringSet for fused trasncripts
setMethod("addGA","fSet",function(x, bam) {
	sortBam(bam, paste(bam,"_sorted", sep=""))
	indexBam(paste(bam,"_sorted.bam", sep=""))
	ga <- readGAlignments(paste(bam,"_sorted.bam", sep=""))
    tmp <- new("fSet", fusionInfo=x@fusionInfo, fusionLoc=x@fusionLoc, fusionRNA=x@fusionRNA, fusionGA=ga)
	return(tmp)
})

Try the chimera package in your browser

Any scripts or data that you put into this service are public.

chimera documentation built on Nov. 8, 2020, 5:16 p.m.