tests/testthat/helper-SangerRead-ABIF-reverse.R

In roblanf/sangeranalyseR: sangeranalyseR: a suite of functions for the analysis of Sanger sequence data in R

inputFilesPath <- system.file("extdata/", package = "sangeranalyseR")
SRab1RFN <- file.path(inputFilesPath,
                      "Allolobophora_chlorotica",
                      "ACHLO",
                      "Achl_ACHLO006-09_2_R.ab1")
sangerReadR <- new("SangerRead",
                   readFeature           = "Reverse Read",
                   readFileName          = SRab1RFN,
                   geneticCode           = GENETIC_CODE,
                   TrimmingMethod        = "M1",
                   M1TrimmingCutoff      = 0.0001,
                   M2CutoffQualityScore  = NULL,
                   M2SlidingWindowSize   = NULL,
                   baseNumPerRow         = 100,
                   heightPerRow          = 200,
                   signalRatioCutoff     = 0.33,
                   showTrimmed           = TRUE)