tmp <- importFusionData("fusionmap", paste(find.package(package="chimera"),"/examples/mcf7.FMFusionReport", sep=""), org="hg19")
fusion.names <- fusionName(tmp)
fusion.names
myset <- tmp[[13]]
tmp.seq <- chimeraSeqs(myset, type="transcripts")
#writeXStringSet(tmp.seq, paste(sub(":","_",fusion.names[[13]]),".fa",sep=""), format="fasta")
Run the code above in your browser using DataLab