#if(require(Rsubread)){
# subreadRun(ebwt=paste(find.package(package="chimera"),"/examples/SULF2_ARFGEF2.fa",sep=""),
# input1=paste(find.package(package="chimera"),"/examples/mcf7_sample_1.fq",sep=""),
# input2=paste(find.package(package="chimera"),"/examples/mcf7_sample_2.fq",sep=""),
# outfile.prefix="accepted_hits", alignment="se", cores=1)
# ref.name <- names(readDNAStringSet(paste(find.package(package="chimera"),"/examples/SULF2_ARFGEF2.fa",sep=""), format="fasta"))
# bam2fastq(bam="accepted_hits.bam", filename="ready4gapfiller", ref=ref.name, parallel=F)
#}
Run the code above in your browser using DataLab