if(interactive())
{
umiFile <- system.file("extdata", "UMI-HEK293_site4_R1.txt",
package = "GUIDEseq")
alignFile <- system.file("extdata","bowtie2.HEK293_site4.sort.bed" ,
package = "GUIDEseq")
gRNA.file <- system.file("extdata","gRNA.fa", package = "GUIDEseq")
guideRes <- GUIDEseqAnalysis(
alignment.inputfile = alignFile ,
umi.inputfile = umiFile, gRNA.file = gRNA.file)
names(cleavages)
}
Run the code above in your browser using DataLab