testlist <- list(N = 753053781L, prodTau = c(2.92607933764293e+161, 2.83411857743981e+224, 8.49933087974508e+64, -1.40189045334312e-202, 2.0159416759966e+173, NaN, -0.265027167789883, Inf, NaN, -1.92564379785362e-267, -7.51747409439005e+289, -2.39004083307202e-254, -1.04898665037248e+91, -1.80672988653271e+285, -1.71349773546842e+195, Inf, 4.60993263554109e+285, -1.70349617656556e-73, 0), SIGMAS = -3.72891175750937e-189, Z = structure(c(3.02963689510527e+25, 1.0433400789289e+102, 4.13868885850655, 4.22965689157121e+65, 2.09347745984083e+254, 7.22313040977019e-94, 7.47270806894546e-306, 1.85544193176199e-121, 1.30321369602926e-214, 1.42581531760456e-205, 5.71988815136193e+40, 2.40312555349366e+79, 1.30312341830818e+242, 5.90794847630666e+145, 4.5862955213266e+56, 4.92829911513831e-72, 8.79118201915016e+37, 2.93490408928753e-278, 2.87902194962882e-249, 8.60015040950658e-220, 2.12954315239463e+115, 10080858569543.5, 1.38740348463455e+54, 2.42744813325002e+119, 7.68333681134016e+130, 1.91550013881663e-196, 7.16726740499986e-184, 9.33944863955843e+129, 2.50267468603885e-272, 1.19004425953999e-133, 7.83359258295937e+265, 8.41513868252226e+101, 1.5424818124613e-120, 3.75143971267036e+231, 1.1742610676448e-07, 5.0775644937397e-20, 1.68214268571114e-103, 2.61374578412447e+58, 1.1434782154188e-41, 1.3218258801971e-286, 2.07486795675509e+253, 5.73272213083558e-108, 1.17849169904811e+37, 5.78840317491766e+259, 2.27935782207921e-233, 6.93471002603301e+237, 2.66835793087035e+112, 7.62712206507218e+210, 7.17459844245451e-99, 3.7779454998729e-88, 2.52531327087611e-21, 9.88118649165563e-111, 1.08660890182781e+278, 3.75919747990517e-308, 5.35168068628928e+271, 2.25679310162188e+115, 1457082585690.83, 2.20255840884921e-257, 1.82781395530013e+39, 2.55788699763179e-252), .Dim = c(10L, 6L ))) result <- do.call(RGeode:::CgenerateU_root,testlist) str(result)