testlist <- list(cols = c(1926209628L, 1434416441L, 88940557L, 1485040860L, -1728786011L, 977540242L, -1593973169L, -66270866L, -613823696L, -398431762L, -1920271387L, 233292454L, -611103979L, -681597065L, 1552795224L, -1718565004L, -107830046L), f = c(609529541L, 849023214L, 1178953518L, 1293442456L, -297572035L, NA, 734663248L, 1080246885L, -1208997142L, -1959077679L, 2134966220L, 1482450246L, -1613855957L, 689013844L, -610884581L, -102334287L, NA, -462212509L, -1288556533L, -1902816978L, 1674860940L, -438443840L, 1954929773L, 1801199170L, 129606635L, 769019872L, 142601366L, 339592311L, 303891703L, -68896657L ), x = structure(c(1.75933361941065e-114, 8.24221549962438e-287, 6.79398327699747e+55, 7.20263011526498e+40, 3.80926860974838e-156, 1.33550472691882e+204, 2.62538996893194e+129, 6.8576940616979e-16, 1.98743400939048e+154, 1.51886024823543e-282), .Dim = c(2L, 5L )), y = c(5.97401140186148e-150, 6.51122619209867e-110, 5.7308545597787e-141, 2.30490309438007e-186, 1.0560008913284e-283, -1.77033849198721e-192, -2.23942978672215e+46, -1.68378573263851e-260, -5.94930195995272e+278, -9.52835856466906e+75, -1.54422122789673e-204, 1908501705420148480, -2.0653360795449e+23, -1939397.43313155, 1.20595177879068e-167, 1.78111917736412e-81, -4.28296836575557e-110, -4.8927331321365e+250, 1.55449886553059e+210, 1864472060033067, 5.60014103866386e+50, -2.97339872262147e+61, -6.53022037705503e+211, 5.07780542997879e+235, -3.79746454969183e-197, -3.07079775495066e+43, -48603571.5337989, 2.3566906714095e+99, Inf, -3.02572039529584e-63, -1.96975805132333e+72, 1.26817317254928e+168, 3.62182926739918e+128, -1.6784234595817e-149, 1.68203628804983e+173, -9.06568165877148e-121, -1.17329755822429e-301, Inf, 1.08815997512014e+274, 1.603379463214e-58, 1.04613837189851e-10, -1.88831983614963e+146, -2.76293308229909e-194, NA, 2.75677352114531e+53, -3.06267740736202e-211, -5.51075422447846e-282, 1.12721217890837e+271, 2.9729297112535e-135, -5.64072057025014e-246, -8.97412910754601e+223, -0.000149059420130128, 4.00006695917432e+209, -1.54856930949977e+206, 0)) result <- do.call(cna:::C_disj_conCov,testlist) str(result)