filename_bs_exceptions <- system.file("extdata",
"GlobalFiler_Stutter_Exceptions_3500.csv",package = "simDNAmixtures")
bs_exceptions <- read_stutter_exceptions(filename_bs_exceptions)
filename_bs_regression <- system.file("extdata",
"GlobalFiler_Stutter_3500.txt",package = "simDNAmixtures")
bs_regression <- read_stutter_regression(filename_bs_regression)
backstutter <- stutter_type(name = "BackStutter", delta = -1,
stutter_regression = bs_regression,
stutter_exceptions = bs_exceptions)
Run the code above in your browser using DataLab