testlist <- list(ex = c(2.00022704805278e+89, -4.37535305685357e+113, 2.23700854846811e-179,  -5.04082324803212e+121, -0.0120845303834627, -5.40940559111902e+270,  -1.26519915799438e+126, -4.18678726813836e+59, -1.82487040233972e-20,  1.50129686664662e+279, -4.73144335064386e+236, -3.28901585853639e-268,  2.15222617245571e+74, 7.06089165981346e-97, -1.03642486986917e+178,  4.80813747866109e+90, 8.91047015837842e-234, -1.16441463618157e+306,  8.84175564052419e+105, -9.58136485032356e-191, 3.9292770488762e+306,  -1.09663677697335e-115, 8.72436021459766e-305, 2.09090857726957e+178,  3.19415764678884e+93, -1.96515099113659e-212, -Inf, 2.75009738684566e-42,  1.37473405435402e+154, 5.26226352310651e+36, -1.93869480168052e-77,  -1.45194702670535e+110, -8.60173182634304e+92, -3.44047631260573e+230,  -1.68696518045486e+97, -9.37316371283711e+26, 2.42136930280394e-187,  8.2364871880775e+102, -4.73023952552803e+48, -2.18058522211917e+29,  1.32465742177171e+41, 1.64970631853285e+111, 2.73407846476641e+63,  -4.60662088087569e-181, 4.28314731700727e+48, Inf, -9.94040474568152e-257,  9.34206016143907e-113, -7.43659672870751e-166, 8.03930655613425e+205,  -2.21925758984607e+77, 8.32772545446503e+178, -1.09574428004513e-294,  -2.47374743050217e-284, -1.46399372682497e-173, -6.01094052653564e-89,  NA, 3.59993534631129e-229, -5.09139142343919e-113, 4.12909555417401e+127,  -2.90720755132856e-109, Inf, -1.50885176954279e-06, -1.13119939338792e+268,  -5.72466115735878e+150, NA, 9.25998604254364e-45, -8.07212188426622e-265,  5.01157251551457e+253, 1.83462383924044e+38, 3.28585159272846e-238,  -1.14468454837839e-235, 0), max_iter = -621956159L, n = c(1.74383054231474e-43,  -2.8906675378917e+256, 1.07805548482161e-38, -1.47017569133465e-17,  -9.46867536251872e-185, -2.41100245451775e-250, -1.18111887967168e-44,  1.53078728909702e+40, 2.28442349335565e+85, NA, 1.77652378255042e+183,  -307.34550088286, 1.66369118107854e-259, -5.31485484337103e+306,  9.13434819330134e+76, 1.24909086627771e-26, 1.39051364928623e+159,  -4.20273578421363e-187, 1.34165106956495e-277, 4.71352717385303e-279,  -2.2590098957032e-217, -4.81291565798389e-99, -3.39538386350061e-278,  3.97298639124883e+53, -1.98875945012008, -Inf, 1.73266616959875e-190,  -1.89236632058637e+164, 5.33006682517342e-140, -4.53651041614086e-61,  2.84352004101632e+160, 1.03309002132961e-209, NaN, -1.87177228943907e-21,  -4.5365608200568e-172, -4.37964181007185e-13, NA, 0), r = 4.57684097489434e-32,      tx = c(NA, 5.06046526849951e+137, -1.32379214634654e-142,      -Inf))
result <- do.call(mixR:::newton_weib_C,testlist)
str(result)