testlist <- list(a_size = 579478383L, discords_num = 1341078051L, n_threshold = 3.4980272157717e-158,      nr_strategy = c(NA, "ceytwpprtxqbxuiqpypq", "sfzrkjrhplkdbqeajtrt",      "gwmxexetncbftxlxszkp", "geyf", "kzpxonqexiksqwaasqpi", "eiprewsig",      "vdkzwvrfzf", "wiu", "fnbyzyxnrasnytcovhkq", "scee", NA,      "gqfftr", NA, NA, NA, NA, "qjasoyswsulmrxjzbghl", NA, "nfendq",      "ctq", "cfsesupbccwc", "ega", "vdusdwajilghoasushek", "yfssauygjiziakxzemnm",      NA, "hsbluvwlzzgjiss", "ffkahztfcpdpmnvawgjp", "fwujursfxeusvabgcltb",      NA, "cfktqxghjwwg", NA, "rlqxqbwwtjvejrgzdrz", NA, NA, "ouxxmxcmkvxtokvoilb",      NA, NA, NA, NA, "ayubkjkbejklv", NA, "vizigrqwaiqooyjplnzv",      "zo", "wwxbeomzommhiexdcjoe", NA, "dhleijjpwbedhyvdyawy"),      paa_size = -1957520420L, series = c(7.36462145653306e+247,      3.43767218615417e+91, -6.16497010462868e-70, 2.21585233187132e-241,      -2.44872107952053e+103, -5.18684450332861e+246, Inf, 7485304033574.14,      -5.23671603072574e-244, 9.63598567352053e-112, 8.30005004922283e-209,      5.05158716417714e-172, 2.33491393643716e-290, -4.6010883261117e+79,      1.14034289386447e-292, -5.07260461631048e-306, -5.69200222906356e-28,      -2.70065263643353e+59, Inf, 3.41342265275738e-58, Inf, 5.13216733237376e+201,      -2.49320373321448e-262, -0.00171193029396782, -2.88975679542891e-274,      -1.10416427282271e+193, 1.73246421247454e+130, -7.06862409649658e+131,      1.08445491709005e+163, -2.43650011865492e+188, -3.61318326829749e-166,      -Inf, 2.00459239557233e-272, NA), w_size = -867062261L)
result <- do.call(jmotif::find_discords_rra,testlist)
str(result)