testlist <- list(E = c(-3.02523076905027e+34, -1.42052454744085e-51, 2.77155923810847e-15, Inf, -6.50536180916646e-211, -5.68675863896026e-98, NaN, NA, NaN, 1.79821615058255e+174, -2.15645670644505e+134, 0), g = c(5.36447752996498e+225, -2.62806816135184e+164, NA, -6.65481198025457e-133, 2.73653584002124e+54, 2.01467152759538e-75, 1.31979905890267e-218, 1.15852598754052e+262, -7.99371305581977e+284, -3.86721012634196e-41, 5.83432925381206e-283, -1.54834755266356e-179, -3.08625292409452e+158, -1.89338950033891e+119, -2.50439157950051e+39, -Inf, -5.74040960758621e+156, Inf, -1.68097881500424e-128, -2.0742959352686e-303, -1.05364827335691e+167, Inf, 7.58690908671041e+305, 9.98528754672788e-175, -2.69302641930666e+59, 1.57303250037174e-129, 2.44382143221787e-85, 7.06184618530059e-155, 9.14615803656501e-133, 2.06420775584646e-252, 4.72458934097411e-25, -1.25911007012054e+163, 1.84289817653323e+227, -3.67812814698829e+71, 3.10005125761298e-123, 5.86474133126192e+54, 1.87925801161265e-22, 1.2960052169524e+67, -Inf), L = c(-6.40013849628164e+304, 1.49117184072201e+199, -2.25861759711007e-89, -5.88141643795797e-46, 3.29429409244011e+139, NA, -1.89970534771081e+103, 5.64157112129862e+159, 1.21802571785859e+138, -1.27763304183473e-241, 3.88094259005898e-133, 6.32197314809757e-231, -4.60743847172984e-279, 3.94519789972445e+229, -0.288848085372072, -2.15233528102025e-157, -5.3832427360939e-91, -5.60082954649244e-74, -Inf, -1.8293127628461e-163, -5.8581794530459e+154, 1.41616628126039e+81, -2.4079443066802e+160, -2.87107874921512e-17, NaN, -2.89239945777107e+26, 6.30385925294659e-134, 2.50844542036752e+89, -1.93544869121028e+56, -1.87512287300407e-40, 8.99671586331445e-214, -1.16814276798531e-228, 1.04608405675296e+292, -1.65140440329959e-246, 4.5177283094951e+254, -1.03192262349374e+238, -5.78733589787011e+46, NA, -3.8356292693755e-252, 2.84091019990534e+61, 2.02833387647432e+213, -8.81742306858933e+254, 3.8938710707991e-213, 0), N = 1860164240L, Ve = -1.98044390009744e+223, X = structure(c(3.27369649571109e+38, 1.17502609548085e-262, 4.1581715741327e+117, 1.3529172085129e-236, 2.3716822763713e+260, 3.19247792878604e-192, 5.38243537914819e-06, 8.32581979620671e-51, 2.18644886088007e-158, 14639560.1297418, 2.04387548005447e-291, 4.65302413992631e+134, 1.63235227216283e-229, 5.37422606905119e+120, 2.33177628385139e+166), .Dim = c(3L, 5L )), xx = c(-Inf, 8.20712895109305e+263, NaN, 5.54048028872018e+78, 2.94923401409591e-161, 8.76914537117891e+156, 1.23640686683977e-268, -1.1056820934721e+148, 6.10454345848453e-287, 8.93327150661182e+170, 6.0325451570639e+87, 2.48279636446676e-45, 7.190175359682e-259, -2.54583625835368e-32, -2.77105471533101e-127, -119306.985950792, 1.40147939608715e-274, 3.55041534950237e+248, -2.7248881350287e+250, 1.48848463249292e+59, -4.58235722161663e-294, 1.28215509311272e-136, -7.4091064275982e-17, NaN, -2.57120758996726e+144, 9.33559912760961e+110, 7.53242252844238e+279, 4.35040286594727e+150, 7.50948347090558e+49, -4.21896292088713e-172, -1.13013195216402e-06, -2.18843211972068e+83, -1.075274138947e-156, 8.88043825237276e-16, -3.810523107302e+168, -5.43591538015852e+24, -1.22377741614124e+21, 136481670135.95, 1.48149893244591e+222, -1.29730945504713e+49, 1.76552645213339e-305, -1.84979286452569e+178, -34.2718452300905, -743.71178648577, -3.71803667935509e-250, 1.16216372536538e+165, 9.6835741196596e+130, -2.21588267409821e+163, -6.53166123715455e-68, -8.38516006279298e+289, 5.01749541285849e-57, -5.44689250466087e-183, -1.04298494616462e-163, -4.99459443870952e+46, 7.20047521479285e-35, -2.66770569968054e+187, 3.64309911307837e-118, 1371.35429687679, 1.02875682320589e+261, -4.34618385795065e-29, 4.13111555792441e-22, 2.01550207296809e-131, 3.85100606848879e+36, 6.45208014299927e-46, -2.70045382778887e-242, 3.19955496480378e+49, 3.12727460042694e-100, -5.75234375463388e+265, 1.00940267897505e-237, 1.4383843852368e+57, 1.91354714562889e-105, 1.92416649156972e+286, 1.33780353994742e+32, -3.1079874273635e-134, 2.52347594508834e+72, 3.73231909150678e-264, 1.54224206378587e+296, -1.67471547528655e-233, 1.63063176067358e-118, 88756707.2296804, 6296429622136160256, -3.66729350111704e+286, NA, Inf, 0), y = c(-1.00894526214653e+183, -Inf, 3.24391056041747e-195, 2.66540707365279e-203, -4.30074052642529e+210, 5.67409830029046e-158, -1.67939362172943e-102, 3.13392258112973e+142, 5.44601863627702e-194, -2.55215363580533e+226, 9.93562891622002e+78, -3.36600726975216e-170, -1.86921227071945e-77, 1.33716699979062e+298, -9.97080650847203e+297, -5.37368962357795e+80, -9.32809778822156e-124, 2.24137835022867e+21, -4.41428081804187e-276, 3.76247809077367e+37, -1.86987680955131e+167, 7.55278106672288e+230, 8.21658604536578e+63, -8.46473020970997e-166, 6.3015353723419e+26, 6.52532761776187e-234, NA, 2.18418428383749e+272, -3.39761429631509e+172, -62.9716874326729, -7.49226515577861e-26, NaN, Inf, 5.01366510173193e-192, -9.49230717126358e+301, 0)) result <- do.call(NAM:::SAMP2,testlist) str(result)