testlist <- list(w = c(-3.65678875039497e-304, -2.62084696535076e-56, 2.39470488556296e-90, -3.59543049460188e+59, -2.51359211644514e-65, -1.89847695658092e-67, -5.41882275099363e+73, Inf, 9.55964335140621e-219, 5.09895963196364e-172, NA, -104.938958534683, 9.9770571440943e+160, -2.70402099755354e-22, -3.10276609336853e+174, 1.27457634103621e-175, -2.5182033601791e+126, -6.43758191107726e+70, Inf, 3.13060137051045e-158, -1.08694107386265e+248, -5.94041361760449e-223, -Inf, 5.97205776070629e-167, NaN, 2.62308034154558e-185, -2.6557276343492e+63, 1.25215784563402e-289, -4.2381053187908e-265, 0), y = c(5.57046442559334e-226, 3.35889785203892e-163, 1.36070043783463e+125, -3.6699478056758e+124, 2.35272977381372e-232, -1.05912833176747e-282, -9.81198890061013e-28, 3595224.88776139, 4.97944339265472e+241, -2.17967262807618e+173, -1.33701637177891e+273, 2.54993896154811e-14, 3.20387772782894e+118, 5.7433123994643e-305, -2.76135338196781e+202, 8.27755250319879e+56, -2.17967262807618e+173, 2.96257438726965e+171, -1.39319870917241e+61, 2.26870901810153e+63, -1.82742209530145e-231, 6.76096221778559e-227, 2.76433432987568e+187, 8.4672625698802e+88, -1.94141650183892e+278, 1.40807743195247e+304, 5.10016285555587e-198, 9.78795085662923e-58, -1.09978621890208e-218, -2.27128176854997e-107, 3.96360158630591e+57, -4.10693169195045e+231, 3.04540416888821e+46, 3.74989491177413e+154, -1.64438081693795e+100, 2.65716454346373e-170, 8.19255400434018e+56, 1.91949601589535e+198, 1.57156188096655e+295, -1.50478985139666e-219, 1.4020688254597e-51, -3.58127838178111e-134, 2.68373528805117e-168, -6.02330298562979e+44, 1.43047321819597e-105, 1.21513265368306e+220, 3.75921248836135e-255, 1471839282.8065, 4.06488355555638e-32, Inf, -4.52907296682326e+262, 3.58351784431519e+60, -1.62587158126795e-218, 5.89319274778481e+23, 1.82126796310018e+210, -1.46247424694891e+283, -8.06180687229267e-205, 7.61738520186e-24, 3.17313823832704e+74, 6.87171030118466e-138, 2.93124534794181e-65, -1.95639921669641e-79, -1.47187788452789e+228, 8.42740337147024e-27, -5.95767057326109e+24, 1.71351342666051e+130, -1.75835628223511e+106, 9.34320510385341e-249, 1.18713539694813e-166, -Inf, -2.74444803095287e-248, -2.17967262807618e+173, 1.92824912480448e+112, 0)) result <- do.call(carSurv::weightedVarRcpp,testlist) str(result)