testlist <- list(I = c(1956894004L, 2129003420L, -1821653689L, -1797152503L, 13787655L, -284334182L, 129331690L, -102349715L, -1994808824L, 10855571L, 275438245L, 1266462283L, 1309692733L, 498784036L, 1866993513L, 794023608L, 1836630125L, 509935662L, -807742694L, 1451320996L, -1850089041L, 1941492707L, 31607856L, 908257443L, -1683418951L, 235988957L, -356780223L, 1012786638L, 382172554L, 2135977344L, 867807337L, -610726794L, 1109143376L, 739716374L, -769370354L, -2109875048L, 72950403L, -1433467683L, 1219773988L, -482052774L, 1858789274L, -519262029L, 822657459L, 1168001865L, -143733599L, -36667834L, -2050725166L, 369386116L, -834593105L, 1322214015L, -685493732L, -1031969351L, -349086743L, 47787911L, -1634117196L, -1648674452L, -44623029L, 645843709L, -1560536732L, 2038308197L, -1334292814L, 1383938544L, 378709171L, 1323114315L, 893097563L, -1184868005L, 1551024085L, -237225311L, 1434997671L, 93099803L, 507236204L, 435074894L, 692955618L, -1392362231L, 1979506534L, -652671186L, -1571105369L, -429079804L, -1483574848L, -2144858454L, 1991805987L, -1161155281L, -972253793L, 631033287L, -157126692L, 238215606L, -1001228732L, 2055597808L, -482052774L, 1161897739L, 1304210290L, 1501051471L, 464071721L, -619847777L, 1599529945L, -606942696L, 1306398610L), order = c(-237556162L, NA, 1953316967L, -1239501961L, 927880184L, 374904298L, 1037049464L, -282358048L, 45883063L, -85030034L, 1556862226L, -376927968L, -690218516L, 883873650L, 2130045550L, 544820770L, 896391471L, 1533320631L, 796051736L, -95274543L, 777174371L, 9753982L, -1983910743L, 943442798L, -1465606909L, 138132279L, -1383837528L, -678856443L, -617191205L, -885171884L, -45679051L, -2117491927L, 1849764982L, 2095558185L, 1828639043L, -2025174942L, -2119090868L, -292118293L, -593616547L, 1757710038L, 95636609L, -1694848250L, -126072449L, -946675384L, 1126077489L, -1254875759L, -750850245L, 41226504L, 677218755L, 1479854416L, -1324101512L, -1515077400L, -799794811L, 991890710L, 1946523255L, 2074574755L, 84436573L, 1026600430L, 1132291816L, 791073023L, 2062124034L), P = c(-100452005L, -1932867860L, 1100852016L, -768795493L, -240652781L, 39187946L, -883248540L, 1030453047L, NA, 2052646843L, -158077752L, -1073192015L, -1353595726L, -1497785231L, 323999056L, -1169324247L, -48618120L, 1913402216L, -1625345953L, 663949527L, -439055989L, -1926890080L, NA, 527980573L, -1837263612L, -1966576343L, -392328945L, 832169494L, 1852809723L, -1784767479L, 1905014928L, 76656022L, 239246232L, 185123571L, -1521810730L, -454431662L, 1485721325L, 753596317L, 1982803579L, -1059384881L)) result <- do.call(hierarchicalSets:::pairSummary,testlist) str(result)