testlist <- list(tau = c(2.64448110153277e-70, -Inf, -6.46475654881222e-214, -4.15916031938664e-99, 6.76533244823154e-287, -2.00162118225531e+181, -1.60246369397759e-26, 2.42509257778036e-36, -1.53954219591067e-253, 1.04430865268696e-134, 243459.790598459, 2.2370364683035e-158, -1.67212911860444e-298, NaN, 7.39754373870121e-80, -3.49165047261503e-202, -2.78050632711682e+262, 7.1497496768669e-152, 1.42491577765632e+252, -6.96076656463723e+218, -3.46431531016166e+206, -3.95661529553505e+89, 1.42488972623705e+48, NaN, -3.09944898151857e+186, Inf, -1.36653148885068e-20, 3.32937456843785e+41, -5.15963976877723e+92, 1.30429309616758e-211, -3.2960991927129e+292, 2.77227721747859e-15, 7.68832300822488e-60, 2.85957994147528e+234, -1.36991573241527e+239, 5.57214183942732e+272, -1.020472266139e+295, -5.85513617227848e-36, -5.32647669777456e+216, 8.01942910393755e+160, 5.15288965850235e-79, -8.23341360933094e-84, -7.49305449081742e+81, -3.40260296585778e+185, -2.0029052149611e-22, -8.08288858950419e+21, -6.58551551580151e+106, 7.40226856654745e+273, 8.04047512341067e-163, -0.00800774051230977, -3.04938331826131e+169, -1.40744872738429e-201, 3.73870625865606e-252, -7.1893512124959e-186, -9.92279402013013e-119, -14845316781.2774, -1.69054432897934e+283, 1.29213843257567e+137, 1.2839859660767e+126, -4.63471428633236e+34, 2.62290253794027e+128, 1.81615692418102e+67, -6.43880642255569e-27, 7.80019847973249e-71, -1.6008841713638e+66, 3.69162082547986e-12, -2.02584301724337e-140, -1.31382688991834e+287, 3.18403860387362e+276, -1.55922739795796e+248, -7.86482150736976e+204, -3.37693978759328e+40, 0), x = 1286779831L, y = -639384615L) result <- do.call(timma:::sumcpp1,testlist) str(result)