all.gRNAs <- findgRNAs(
inputFilePath = system.file("extdata", "inputseq.fa",
package = "CRISPRseek"),
pairOutputFile = "testpairedgRNAs.xls",
findPairedgRNAOnly = TRUE)
gRNAs.RE <- filtergRNAs(all.gRNAs = all.gRNAs,
pairOutputFile = "testpairedgRNAs.xls",minREpatternSize = 6,
REpatternFile = system.file("extdata", "NEBenzymes.fa",
package = "CRISPRseek"), overlap.allpos = TRUE)
gRNAs <- gRNAs.RE$gRNAs.withRE
restriction.enzyme.cut.sites <- gRNAs.RE$gRNAREcutDetails
Run the code above in your browser using DataLab