tests/testthat/helper-compare.R

In DNAtools: Tools for Analysing Forensic Genetic DNA Data

# Loads helper_00-freqs.R

# From DNAtools01022, i.e. version 0.1-22 from before refactoring
if (FALSE) {
  #devtools::load_all('.')
  OLD_db_comp_dbExample_5 <- dbCompare(dbExample, hit = 5, trace = FALSE, threads = 1)
  dput(OLD_db_comp_dbExample_5)
}

OLD_db_comp_dbExample_5 <- structure(list(m = structure(c(102L, 206L, 165L, 72L, 22L, 6L, 
                                                          0L, 0L, 0L, 0L, 0L, 1368L, 2114L, 1477L, 556L, 149L, 19L, 2L, 
                                                          0L, 0L, 0L, 0L, 7122L, 10013L, 5710L, 1821L, 360L, 44L, 3L, 0L, 
                                                          0L, 0L, 0L, 21878L, 26084L, 12566L, 3250L, 493L, 41L, 0L, 0L, 
                                                          0L, 0L, 0L, 44189L, 43656L, 17049L, 3361L, 379L, 26L, 0L, 0L, 
                                                          0L, 0L, 0L, 59463L, 47418L, 14642L, 2135L, 156L, 5L, 0L, 0L, 
                                                          0L, 0L, 0L, 54601L, 34320L, 7570L, 719L, 34L, 0L, 0L, 0L, 0L, 
                                                          0L, 0L, 34203L, 15463L, 2220L, 116L, 0L, 0L, 0L, 0L, 0L, 0L, 
                                                          0L, 13571L, 4145L, 310L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 3281L, 
                                                          472L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 353L, 0L, 0L, 0L, 0L, 
                                                          0L, 0L, 0L, 0L, 0L, 0L), .Dim = c(11L, 11L), .Dimnames = structure(list(
                                                            match = c("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
                                                                      "10"), partial = c("0", "1", "2", "3", "4", "5", "6", "7", 
                                                                                         "8", "9", "10")), .Names = c("match", "partial"))), hits = structure(list(
                                                                                           id1 = c("1", "1", "2", "6", "16", "16", "18", "19", "25", 
                                                                                                   "28", "35", "40", "45", "50", "50", "50", "64", "67", "69", 
                                                                                                   "69", "69", "76", "77", "77", "78", "79", "85", "92", "92", 
                                                                                                   "99", "125", "134", "134", "139", "151", "152", "153", "153", 
                                                                                                   "161", "161", "166", "167", "171", "171", "177", "188", "192", 
                                                                                                   "197", "213", "215", "215", "218", "226", "226", "229", "230", 
                                                                                                   "235", "238", "252", "252", "254", "254", "255", "258", "266", 
                                                                                                   "273", "288", "290", "295", "298", "300", "305", "325", "327", 
                                                                                                   "340", "345", "348", "350", "350", "352", "354", "361", "367", 
                                                                                                   "379", "379", "381", "383", "385", "388", "397", "405", "409", 
                                                                                                   "412", "412", "412", "413", "413", "413", "413", "415", "422", 
                                                                                                   "436", "439", "440", "444", "447", "455", "456", "480", "488", 
                                                                                                   "506", "511", "513", "514", "515", "529", "545", "551", "555", 
                                                                                                   "562", "568", "568", "571", "576", "585", "622", "625", "626", 
                                                                                                   "630", "639", "641", "651", "652", "660", "674", "679", "683", 
                                                                                                   "688", "694", "725", "775", "776", "795", "798", "867", "956"
                                                                                           ), id2 = c("416", "458", "63", "47", "105", "408", "997", 
                                                                                                      "301", "52", "535", "65", "520", "761", "218", "575", "801", 
                                                                                                      "401", "352", "294", "298", "997", "876", "356", "560", "125", 
                                                                                                      "840", "803", "298", "485", "608", "546", "350", "553", "730", 
                                                                                                      "764", "581", "652", "687", "881", "912", "677", "777", "258", 
                                                                                                      "273", "298", "506", "390", "570", "819", "788", "857", "377", 
                                                                                                      "759", "974", "456", "500", "884", "757", "292", "372", "474", 
                                                                                                      "742", "746", "659", "315", "413", "658", "324", "299", "943", 
                                                                                                      "441", "393", "877", "838", "518", "781", "854", "392", "515", 
                                                                                                      "548", "589", "502", "877", "560", "795", "851", "910", "655", 
                                                                                                      "506", "976", "645", "893", "571", "750", "842", "435", "580", 
                                                                                                      "900", "932", "512", "881", "723", "640", "770", "482", "685", 
                                                                                                      "567", "634", "574", "870", "910", "801", "888", "675", "839", 
                                                                                                      "761", "799", "748", "622", "898", "913", "963", "681", "615", 
                                                                                                      "611", "763", "641", "945", "777", "890", "697", "782", "676", 
                                                                                                      "921", "828", "737", "712", "778", "855", "921", "958", "994", 
                                                                                                      "801", "953", "928", "985"), match = c(5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
                                                                                                                                             5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 
                                                                                                                                             5L, 5L, 5L, 5L, 5L, 5L), partial = c(2L, 3L, 0L, 3L, 3L, 
                                                                                                                                                                                  3L, 1L, 3L, 1L, 3L, 4L, 2L, 3L, 5L, 3L, 3L, 4L, 2L, 1L, 3L, 
                                                                                                                                                                                  2L, 4L, 2L, 2L, 0L, 4L, 0L, 3L, 4L, 4L, 4L, 4L, 2L, 3L, 5L, 
                                                                                                                                                                                  1L, 2L, 2L, 2L, 2L, 1L, 1L, 2L, 4L, 3L, 1L, 2L, 2L, 3L, 4L, 
                                                                                                                                                                                  1L, 2L, 3L, 2L, 3L, 2L, 4L, 3L, 0L, 2L, 3L, 2L, 2L, 3L, 3L, 
                                                                                                                                                                                  3L, 3L, 2L, 4L, 3L, 3L, 4L, 4L, 2L, 2L, 0L, 2L, 2L, 4L, 4L, 
                                                                                                                                                                                  3L, 2L, 1L, 1L, 4L, 3L, 2L, 1L, 5L, 2L, 2L, 3L, 4L, 3L, 1L, 
                                                                                                                                                                                  3L, 2L, 4L, 2L, 3L, 1L, 2L, 4L, 5L, 1L, 3L, 3L, 2L, 2L, 4L, 
                                                                                                                                                                                  4L, 2L, 2L, 3L, 1L, 2L, 3L, 4L, 3L, 0L, 3L, 3L, 4L, 2L, 3L, 
                                                                                                                                                                                  5L, 2L, 1L, 2L, 3L, 3L, 2L, 2L, 2L, 1L, 2L, 1L, 4L, 2L, 2L, 
                                                                                                                                                                                  1L, 1L, 2L, 4L, 3L, 1L)), .Names = c("id1", "id2", "match", 
                                                                                                                                                                                                                       "partial"), row.names = c(NA, -146L), class = "data.frame"), 
                                          excludedProfiles = "none"), .Names = c("m", "hits", "excludedProfiles"
                                          ), call = structure(list(loci = 10, single = 0, collapse = FALSE, 
                                                                   vector = FALSE, wildcard = c(FALSE, FALSE), hit = 5), .Names = c("loci", 
                                                                                                                                    "single", "collapse", "vector", "wildcard", "hit")), class = "dbcompare")