testlist <- list(n = 1366112775L, xs = c(603497922L, -2065975987L, -1981852649L, 900590154L, -2076391578L, -2146136927L, -9428150L, 1520036990L, -1852751851L, 1844863990L, -709423862L, 1693996265L, 874270644L, 819746351L, 1283029671L, 308684195L, -127551131L, 1528585009L, -748078280L, 1636835733L, -1401926948L, 1285557401L, 428228651L, -328872220L, -897103578L, -1549445257L, 244494191L, 584058062L, 1078897549L, -289987065L, 1030107689L, -889123179L, -2007516372L, -65887478L, -1521321529L, 578721378L, -868094021L, -132791755L, 2079678022L, -160637826L, -996693312L, -1437742257L, -1622927679L, -1028905841L, -317502747L, 688659108L, 24767479L, -439912791L, 1579182600L, 1848989453L, 2037305148L, 452184840L, 102100271L, 554226723L, -2118182298L, -2037378844L, -1317343969L), ys = c(1.69525406917008e-11, -3.2200871813294e+207, 1.87678984938135e-179, 7.6026610522376e-52, -3.18940703770689e-67, -4.07827651100228e-125, 1.24680700116839e+68, -2.75820195448307e-295, 5.67556876054047e+224, -3.54964583317729e-194, 1.60096399571375e-198, 4.16403222004086e-243, 1.67598413281535e+109, -2.35867586410091e+145, 4.45587038472864e-209, 3.27437460602372e+270, 1.99018496701793e+90, 7.3743152627684e-288, 3.21584708469381e+236, -4.62773240474319e+76, 50002022.6447766, -6.90295806583465e+295, -6.94996635625781e+150, -6.24894289801879e+226, -5.38464246327419e+306, 9.22390348570428e-177, -5.22812133068865e-276, -9.82459501909337e-24, 3.37837640236479e-275, -3.19868199272117e-152, 9.01759077219456e+269, 1.38132470505271e+189, 4.87533065195373e-255, 6.4658697437712e+299, 7.95413582065576e+131, -1.00073342069585e+287, -36540528024027800, -5.08222340286187e+282, 5.2410775155028e-118, -30883170442827423744, 2.01316690169769e-209, -7.18923027662418e-155, 8.03583537971706e-241, -1.33820533643905e+63, -5.4155903762936e+156, -2.30752834824478e+261, 3.1542161977728e+84, -3.72183930756279e-129, 6.54168214810125e+73, 3.73656643007676e+138, -5.71213217707006e+187, -1.29574937268231e+212, -2.77058189260118e-29, 8.62191586709886e-194, -5.09042695070302e-110, -3.45193026278311e+44, -2.11452703611125e-76, -7.95213852460129e-143, -1.15541923078645e+112, 1.12936295187619e-169, 1.8292931831502e-65, 1.63279797354333e+135, 1.41608123117205e-276, -3.81090666915336e+65, 1.36600810009539e+281, -1.06794222358144e+197, 1.25690837692473e-144, 2.94980178460674e+178, 4.70745471373091e+268, 576656230284.52, -7.19983242345361e-133, 6.02030857894279e+250, -6.22108655137266e+272, -2.11921590636165e+85, -1.62929348291494e+63, 2.97473643890528e-162, 1.38686401330663e+242, 1.35821547567478e+166, 2.33043825127844e-248, 5053395844987.44, -7.91953784090027e+194, 5.11639471989435e-144, -2.33801983216938e-198, -1.4998920250016e-10, 4.32397112202645e+216 )) result <- do.call(BiDAG:::collectC,testlist) str(result)