breakdancer <- readBreakDancer(system.file("extdata/ZS97.breakdancer.sv",
package="intansv"))
str(breakdancer)
load(system.file("extdata/genome.anno.RData",package="intansv"))
str(msu_gff_v7)
breakdancer.anno <- llply(breakdancer,svAnnotation,
genomeAnnotation=msu_gff_v7)
str(breakdancer.anno)
Run the code above in your browser using DataLab