testlist <- list(end = -146297198L, lengths = c(-1354476257L, -1415734890L, -904072580L, -1166765837L, 1976839337L, -510736979L, NA, -1098730899L, -972518287L, -1524299921L, 1106963451L, 1853615844L, 1327205681L, -1454121471L, 1928403504L, 1942854969L, -718689670L, 1320348048L, -1395291366L, 1350237856L, -1785933506L, -542162863L, -1604681453L, 656297212L, -1046515815L, -1470093996L, 900820869L, 728573376L, -101253416L, -1522652859L, -1716889408L, -928727793L, -1691114173L, -1815439160L, 2064076454L, 1953719918L, 1785021967L, -1552919236L, 447610339L, 1387983597L, -308858751L, 1657293277L, -812153788L, 199930485L, 1341687027L, 1759063939L, -2027133223L, -430389548L, -252291758L, -1080152178L, 917754433L, -1635469587L, 2101010661L, 336619675L, 1020163107L, 658175767L, 810314223L, -359104992L, 1280336362L, -719857838L, 1387804518L, -929038076L, 1853171605L, -1356944161L, 1779814229L, -1370655238L, -1646795662L, -289684416L, 1945937467L, -1666760694L, 476553419L, -2041795600L, 1652180240L, -944043420L, -1829841024L, -1449410275L, -1754834893L, 261635627L, 14612358L, 715290252L, 482122979L, 2007385865L, -1809938114L, -1169532079L, -1296857663L, 1287908428L, -1578904885L, -2058856287L, 83133563L, -1681095633L, -368153180L), max = 322159101L, start = 771932723L, times = c(1415489352L, 408707613L, 317860139L, 609561345L, -1481245742L, 251549795L, 1430391743L, -478972105L, -786530327L, 2061567629L, -751781640L, -2048657108L, -1728708698L, -212399544L, 1788897464L, -2004896679L, -1640807912L, 357148136L, 2036261118L, 1104816858L, -819363646L, -2121659877L, -1626171353L, -1840480208L, 2143504532L, 216956293L, NA, 934110982L, -672610216L, 1926460178L, -452249225L, 1471850454L, 2112908169L, -555217366L, 1167177597L, 1042252565L, 122449273L, 534809348L, -339379134L, 2133006844L, 327452145L, 1821580209L, 617819746L, -223184647L, -18517475L, -956423759L, -1013058494L, -1056096556L, -1849440515L, 1457630842L, -1260528474L, -1890279539L, 974301696L, 281784787L, 1772426538L, -1303118269L, 381960300L, -1494227366L, -859700901L, 396421201L, -1299033662L, 1560450502L, -1465192358L, -34628077L, -1277264039L, -848972647L, 683013183L, 1440518152L, 1860291276L, -480210293L, 176416264L, 1921260325L, 1654357808L, 3393832L, -390174915L, -1695070967L, -669985348L, 1885816698L)) result <- do.call(highfrequency:::nsmaller,testlist) str(result)