... | ... |
@@ -449,8 +449,8 @@ getCasRxRFScores <- function(mrnaSequence, |
449 | 449 |
Sys.setenv("PATH" = paste(Sys.getenv('PATH'), |
450 | 450 |
bin.RNAhybrid, sep = ':')) |
451 | 451 |
|
452 |
- bashScript <- system.file(package="Cas13design") |
|
453 |
- bashScript <- file.path(bashScript, "scripts/RNAhyb.sh") |
|
452 |
+ bashScript <- system.file(package="crisprScore") |
|
453 |
+ bashScript <- file.path(bashScript, "casrxrf/RNAhyb.sh") |
|
454 | 454 |
|
455 | 455 |
# transform to DNAstringSet |
456 | 456 |
GuideSeq = DNAStringSet(dat[["spacer"]]) |