testlist <- list(I = c(762591081L, -1728648739L, 1910635759L, 1762537160L,  -172955681L, 872238800L, -1774701449L, 158526262L, -433873026L,  428432522L, 1784183251L, 1722260571L, 1468218251L, -2138481898L,  -1030779445L, 24642280L, -1683921227L, 717373333L, 448358528L,  1610931384L, -2028518649L, -1600250526L, 766127663L, 590354366L,  -780307460L, 1085509978L, 1828314060L, -21527419L, -825782930L,  1705693587L, 1442824824L, -506380940L, 1454046358L, 1569583561L,  -2016635515L, -2095445423L, -510148793L, 1116789399L, -1885597762L,  1967505355L, NA, 1230181840L, 531322274L, -983567450L, -139268807L,  1137168594L, 1675596248L, 609264660L, 184967252L, 1500914808L,  561584870L, -653423408L, -1082521342L, 1104795045L, -1201242660L ), P = c(-760963142L, 1622899978L, 998128551L, -122528947L, -1507857826L,  -1774305865L, 2007562039L, 887852294L, -1892892177L, -398525917L,  -1137325388L, -417004915L, 1156377563L, 707302049L, -796206843L,  1969621764L, -1832062086L, 183344583L, 577207049L, -1937926447L,  1786883220L, -1438763398L, -938508483L, 1972060423L, 1463124578L,  572467525L, -2019275245L, 585491596L, 1720721424L, -816411753L,  1695208922L, -1793662227L, 1264865134L, -2089241846L, 469835326L,  -1064504491L, -1813291678L, 1105787303L, -204570232L, -446466768L,  -943415733L, 1011963225L, 1400084281L, 1986168329L, 1306815374L,  -865847873L, 867649560L, 448612578L, -2098778690L, 948049803L,  -1064504491L, 290157918L, 803269884L, 1143126903L, -654077965L,  -1042754237L, -1090387465L, -2061925509L, -934746151L, -1822672957L,  1008975744L), setNames = c("rehciwvfkqrrzdmkisjl", "widgemavmnwjgsghrnoh",  "wlddltup", "ka", "deda", "tnr", NA, "rlhbygdfxymexdnylkt", NA,  "brpbtrzpvqreiwvbhasi", "gimwwgmgvariwpkmqwjr", NA, "owgoz",  "xgfhslfmwosnwxitlfjh", "daaqdfrn", "ncmaknwjejwyysdjrjlq", "bziuzxlpcyeywjpxwngd",  "dyekzrmwzuercqhiluva", "otvqletiuytyxrakqzmn", NA, "jpbnmjfgcstowoubrlbl",  "ltnrifwzjoonf", "go", "wzmeiomlwtdztaxcll", NA, "jmthzmhnfozbinqpgvyw",  "tzxgiomsjghqmuahdojb", "uxfjrzgfoozmttbopzwa", NA, "kvymnyehqwdfnaejyrfe",  "bpdosyljcpknerkghscd", "btoizvyzqxphxvtgdtpr", NA, "koxbhruzfgjqlcmgnrsh",  "ihgfswpbnbwmivaecrzg", NA, "nbnkyisogyfkhuokwviy", NA, NA, "vshhtjhsrybjk",  "vidzzxqa", "tnvbzkjtewn", NA, "towhjwquvwduybioapaq", NA, "hleznygnfhqcqpxjdrji",  NA, "qlrpxyqcgccvgqd", "rqlrknouf", "lolweroeulibovlcgmwa", "cnybtnbdevbyyqjj",  NA, "pcgeucvpyv", NA, "xfzdv", NA, "", "okklsfudfvjw", "dbqgzex",  "wtkuwsacrkhcjtptpnsx", NA, "koweujl", NA, "ligbmptczgrisw",  "tpraasujnihqbrkpeizm", NA, "okdodbvybthhejevmbea", "u", "rfwmrzwdhyjtupzjiayf",  "empltazb", NA, "cqfukqjrqrdepq", "vbavenpwaobbbkdgm", "lxf",  "aqjgqkqunibvljndctge", "chcdqahobdbppgwmabyi", NA, "pnguhthlslhcgibhztkz",  "asvzxlsyjnvamgnwmjid", NA, "ubzuvxelzwozadpyxsgq", "txrwohzbcxptzrnkdudv",  "ekritfatdlkhvkani", "qwhwkjxiednccgfdjzq", NA, NA, "rgyiyo",  "chibmrqcjcrnfhunhhzs", NA), threshold = -1.13669417353005e-159)
result <- do.call(hierarchicalSets:::setClustering,testlist)
str(result)