testlist <- list(i = 1630296053L, j = 1956059806L, w = c(NA, -7.17574673190869e-191,  Inf, -Inf, -Inf), x = c(2.4008060445011e+114, -4.0323823872441e-290,  -1.21707105716386e+176, 9.20924491476701e-245, -3.46785892487827e+187,  7.84906536946963e-50, 7.64190841400022e+36, -8.78643060761557e-145,  -7.8181084390966e+223, -3.93490756884645e-97, 6.48243067423334e-113,  3.78899413044189e+175, 9.36779621850267e+165, Inf, -3.35302377219798e+125,  -7.25349499331408e-137, 1.31878783566684e-84, 9.05263352532666e-255,  -2.59576887578899e+260, NaN, -2.75203915075579e-243, -1.78115912022122e+193,  -3.59835444727009e+98, 6.13311906294257e-302, -5.08110175290045e+135,  -2.73442682596767e+142, 4.26911942791164e+36, -8.1046517416565e-35,  2.43272878647179e+303, -1.37493624910208e-155, 1.84163079583492e-202,  2.0524811920114e-169, 2.3198876986089e-194, -1.58608217056688e-225,  -3.16314004196944e+273, 8.13631608363216e+272, -2877744749.68021,  -1.0701251661232e-249, -3.24211620564837e+239, 5.56219204476014e-162,  -8.31453868690192e+141, -8.83092971073325e-102, -2.83562362099734e-230,  5.33768886124256e+307, -Inf, 3.90580988598489e+74, -1.59185344938648e-162,  4.48690183448721e-242, -2.37420802527823e+95, -1.51651316270926e+67,  2.31792308053171e-240, -3.71129429729686e-252, -4.23168220359753e-152,  -9.25362999787227e+139, 2.263503994043e+39, -1.25592362419893e+151,  4.1905427247936e-78, -1644911515944073, 3.45758730625728e-16,  -2.5290644913542e-164, -8.60164389375202e-40, -1.777345823568e-271,  -1.99199141882617e+120, -1.83095214349464e+74, -0.0909109712685756,  0.0199497051482153, -6.97631687302853e-192, -3.57429426190493e-276,  -3.80572064792597e+146, -3.80572064792597e+146), y = numeric(0))
result <- do.call(RcppDynProg::logistic_fits,testlist)
str(result)