testlist <- list(gh = structure(c(9.9334374277445e+194, 6.42703286380677e+218,  6.00979070020471e+127, 3.57861245939394e-97, 3.88176359359566e+41,  1.02367206615796e-257, 1.11562458681644e+105, 5.95061691668669e-44,  1.45655166816855e-120, 4.48060480388137e-175), .Dim = c(10L,  1L)), lp = c(3.02142531832683e+135, -2.03637868346094e-100, -1.11177895417532e+263,  2.21227642845132e-276, 8.89763574468476e-253, 1.68827197967091e-130,  -2.31142546828756e+134, -5.75631083724795e-301, 5.45949203499919e+293,  -2.43974266829742e-202, -1.24609159131313e+82, -1.17768816014038e-216,  5.43526478028116e+225, 9.10645298161696e-19, -1.54087428840086e-274,  9.23559311416955e-244, 2.01874206455657e+66, -Inf, 6.98355593389504e+164,  -4.85089994744809e-216, -3.50332057391041e-259, 2.94723204031495e-276,  -Inf, 4.72885982462796e-197, -5.97614622003685e+116, -9.99543633216645e+196,  1.31452888411781e+180, -3.20880807258477e-263, 3.5298264907908e+123,  -2.43974266829742e-202), tau2 = c(3706414130.90478, 1.43319389080314e+276,  -5.25073966419846e+71, -2.43885499979511e+225, Inf, 5.487322281017,  1.99693553613189e+95, Inf, NaN, 2.04094685055609e+180, 6.58210952346696e+210,  -3.53586634432178e+136, -7.77361329212986e+275, 1.20586850059073e+308,  -2.54414462103994e-112, 4.77815008533861e-91, 2.22202812995242e-43,  -2.76428664377371e-212, -2.84888320015352e+244, -2.48228593321301e+224,  NA, -1.06694850881488e+46, -4.72664817479211e+251, 3.6728702492847e-127,  -7.89589419202519e+123), y = c(-1.94565150522783e+184, -2.31891452122618e+294,  2.21473422020076e-17, 8.16556129567143e+292, -7.325736040048e+296,  1.0281761567185e-218, 2.57028091455457e+272, -1.58397505583834e+291,  -1.07373000272669e-13, -5.24993392944093e+41, 1.37952212719195e+139,  -9.70212838140089e+103, -0.0148113206986608, 2.86670536447134e-238,  -6.10730998329899e-262, 2.07381511490449e+179, 2.99690142745085e-121,  4.49964505326992e+240, 1.6679335554037e-106, 1.3675012443795e+171,  4.49248612554653e-84, -Inf, -1.92645116515088e+96, -1.54559737126655e+255,  -8.52147810599908e-248, -3.51185481793229e+64, -3.03876217194306e+291,  -1.53042289381852e-34, Inf, 4.64777485362935e-107, -1.49948222249452e+80,  5.54684498853274e+197, 1.70185907709668e+253, 108930273409.462,  -6.82918730136035e+79, -4.30022723065984e+286, 4.61981528290513e+157,  1.25437119202041e+84, 2.2335649920112e-64, 6.91333536236387e-180,  NA, -1.00697517169663e-43, 7.46746346435335e+101, 1.79597496821991e+121,  -3.91195801355745e-234, 0))
result <- do.call(robmixglm:::llrandpoiscpp,testlist)
str(result)