testlist <- list(w = c(1.48033948499272e+141, 4.35532907227097e+173, 3.15975908439961e+144,  -1.88613110684207e-169, 3.06433475176368e-85, -4091.75058732409,  -9.50988806929582e-79, 6.76203905029789e-208, 3.4060471557653e+30,  -1.93476231870459e-43, -3.38030240849304e-188, 1.5812601287156e-203,  5.33033102757747e-12, 2.4220199767796e-156, 5.90953036732359e+231,  4.35994552930968e+111, 1.91082140161536e+210, -2.76324713564523e-34,  4.32911278900737e-55, -1.35405899841945e+21, -1.81119353260999e-131,  Inf, -3.22185476211323e+245, 1.98129993823559e-154, -2.83362402173912e-43,  -7.95642335118449e+140, 8.86769099202678e-131, 1.00122862923289e+117,  NA, 8.08123693877404e+189, 6.07018206221945e-299, 3.83250222475463e+157,  -4.25552142912465e+98, 1.58058005685642e+207, -5.14273791208025e+125,  -8.91663381002621e-290, -Inf, 3.70782188676256e-208, 4.78383450881349e-71,  -7.62182620022203e-245, -1.48443356231018e+231, -1.02771631581754e-65,  9.13836918597192e+178, -8.47983072876482e+100, 1.0347041589408e-299,  -1.78575445434519e+216, -4.11435029653649e-134, -7.36453229533989e+226,  0), x = c(5.46655422340296e+106, 2.55242894462531e+87, 1.50109292075808e-37,  1.06669836982014e-257, 6.90195084618324e-68, -3.68399067198448e-66,  -2.04984148515926e+173, -7.45640101029909e+171, -1.12288003526459e-204,  1.85512950464346e-87, -8.39208060163963e-24, 5.39661468287807e-291,  8.10575359102649e-06, 2.76032305772362e+20, -2.29899019747608e-154,  1.07640999311989e+296, 1.25926043238251e-143, 1.21259405840263e+38,  2.73725708449633e-184, -1.4787500537646e-218, 1.56438752533791e+32,  1.74969014356828e+193, 6.06354913618306e-72, 2.3871113206043e-65,  5.49461600337992e+67, -2.2284418657565e-236, -7.69521619149615e-67,  9.34621070450291e+72, -1.86874653216788e-166, -1.55366733584842e-289,  -3.22473963709112e-60, -2.57541826266081e-138, 9.93209674552532e+101,  1.19698732908069e+170, -6.18313236499054e+107, -1.38963097921788e+304,  8.45584717532961e+69, 4.77730795797513e-54, 2.4154428794422e-239,  NaN, -1.63094473507053e-163, -1.43103297282237e-298, 6.26632627704245e-231,  -7.37145092049727e-27, -3.80481557630569e-185, -3.08008345725203e+52,  3.22763089316801e-190, -1.96170123453484e+104, -3.41889901745211e-63,  -6.78790953587336e-286, 14.8175894333516, 5.51641439689582e-62,  1.85512950464346e-87, -2.86243457315461e+248, 1.08465054573757e-212,  -1.71766573430458e-229, 5.29835821216927e+294, 2.6924038490127e+198,  NaN, -5.62350258479036e-71, 7.915012042222e-141, -2.67210474715956e+201,  -9.22817210887169e+188, 1.56409762584856e-17, -4.05576690957837e-203,  6.96993620522533e+67, -1.96532519009293e+300, -3.51791715642415e-180,  1.9706818213385e+264, -8.73760822154635e+233, 5.28465227149528e+103,  4.26880843360592e-250, 1.21371194510177e+120, Inf, -6.21620243637957e-133,  6.14234943229282e+211, 1.09607931623549e-221, -5.38096604193711e-292,  -5.30953319698015e+210, 3.85975246606423e-147, 8.18024407946092e-72,  -3.10388317660155e+215, -5.6711982712133e+175, -1.59723213925251e-34,  3.52821186391854e-91, 2.78976201721918e+122, -5.05271218355232e-257,  9.91043875388838e-116, 0))
result <- do.call(surveysd::weightedRatio,testlist)
str(result)