testlist <- list(gamy = structure(c(6.02029316817636e-137, 1.5418278239667e+114,  5.23311548549418e+78, 8.18461883523006e+40, 6.17226369762845e+200,  1.25436934712253e-184, 1.38665582788761e+110, 3.3094997270303e+129,  9.84804934477242e-09, 4.9359450711294e+148, 2.41050618984121e-178,  5.42658958059672e+255, 9.57763130807318e+257, 5.51297093037268e+227,  7.2765569948836e-201, 2.78924098051848e-34, 1.41457771833263e-278,  2.65132102597829e+138, 6.27933384528972e+288, 1.75449693004156e+86,  7.19584192978243e-86, 1.00305235292654e-78, 9.18221148656369e+109,  3.1509824180161e+66, 2.13523579536554e+288, 1.91173879936941e-233,  3.09953872947855e+288, 2769399285804364800, 2.25982826109028e-216,  2.88682535383451e-252, 2.94371588244429e+156, 1.08525919596808e-243,  5.3917110314317e+41, 1.28005556248751e-47, 1.59513305467997e-27,  7.08900886326593e-99), .Dim = c(9L, 4L)), mus = structure(c(1.21075186763898e+123,  1.27100657555575e+303, 7.55759296896688e-94, 2.99887003867408e-66,  1.13383650786543e-231, 1.51765806864871e+59, 2.44418997913209e+172,  1.14620804970867e-121, 1.68327743540717e+29, 1.19232251429319e-46,  3.22541135053757e+227, 9.77429076327548e-61, 1.70199455106543e+61,  3.45600400006795e-121, 4.65089603874632e+285, 8.01404730551262e+23,  1.73564289965777e-199, 5.20176098436823e+144, 1.76945566496759e-215,  2.88115939980566e+276, 1.41695165117499e-251, 7.86449194248403e+287,  5.22909771787689e+76, 1.53163871656711e-29, 2.93430883542482e+79,  2.98221489092648e-217, 3.68346677761368e-303, 1.61305825096382e+301,  5.47291851459654e-14, 5.47180912197204e-173, 1.5950004557727e+79,  4.91815773410105e+71, 8.30318564194835e-123, 2.19312083283645e-226,  3.50486178052741e-20, 1.07870853146566e-10, 6.09699415880428e+103,  4.77580150335955e-148, 5.89767762706958e+216, 2.1099809866188e-77,  5.89979877550234e+238, 6.67075244814542e+130, 6.09193047252131e+131,  8.57854439999167e-44, 1.74081465591263e+154, 5.29800868065295e+255,  1.11162105174278e+42, 1.57950616309993e-212, 3.81916415575888e-07,  23428823.5711042, 1.49096910581398e+283, 7.29712028294183e-133,  4.29438224080327e+184, 8.53756287872729e+58, 1.90265507544796e-98,  1.3604940353637e-207, 9.85610615456219e-250, 6.92199918557206e-22,  1.49955771728749e-15, 1.45842618497392e+156, 2.56810372889508e-157,  2.35576431681554e+94, 9.60278599684215e-178, 2.92220323691773e+151,  7.82067640748683e-223, 9.45351227348898e-174, 5.06151578964521e-235,  2.5598322620999e+62, 1.18399968539928e-18, 8.37160930764812e+30,  9.68877950377548e-129, 1.28013412555657e+302), .Dim = 8:9))
result <- do.call(NHMM:::rcpp_getppp,testlist)
str(result)