testlist <- list(j = -1009294254L, tau = c(3.19754433029083e-59, -3.83225264368623e-110, 1.76016665119817e+196, -1.64610531724354e+159, -9.96497148529796e-128, -1.94670011015907e+62, -4.50716697033318e+254, 2.41773362103913e+139, 9.27273461912244e+253, -3.19757723860124e-292, -3.8084737621124e+237, 5.39929183988349e-270, 4.71491818642484e+285, -5.21259696582376e+38, 7.02605283054632e+53, 1.15827204303044e-252, -1.89813742804556e+88, -7.97870438059633e+116, 8.28133849909825e+274, -9.12526768243756e-82, NA, 2.82460790897457e-30, 6.286679296361e-140, NA, -8.25659502448882e+102, 1.6285824990174e+90, 6.64004727536213e+286, 3.33556470952607e-10, -1.1634282500751e-55, 1.06170613416408e+45, 7.5732778022067e-220, NA, -1.4386666206876e+211, -Inf, -2.97709943601661e+185, -1.30174851456187e+124, Inf, -2.17008791166175e+108, 0), x = 2158319L, y = 853743955L) result <- do.call(timma:::sumcpp,testlist) str(result)