testlist <- list(beta = structure(c(3.76227832396259e-173, 3.60923235952106e+113,  2.33004489265839e+218, 43467710503883.7, 3.1824415524298e-229,  1.82827399829413e-224, 6.04996322632487e+105, 6.44422089082037e+268,  6.24094117568062e+153, 9.93671942930747e+284, 1.49844791053318e-78,  1.95353806876509e+286, 3.73572998021737e+25, 1.01140917121883e+152,  7.37888979496077e+249, 1.78531664362571e+297, 5.35597224948803e+268,  2.26289382164113e-42), .Dim = c(3L, 6L)), XX = structure(c(2.65897838499788e+274,  1.46465477938973e-212, 1.59781170694582e-248, 9.06556789531122e-14,  7.65176125884036e-138, 4.50018159828995e-208, 1.76846341526818e+63,  1.54902792496219e+185, 1.43791922335407e+210, 1.07766959585989e+262,  2.32924391773299e+134, 2.15926172233047e-31, 1.6534649403292e+233,  1.94496501745243e+265, 4.3269514421378e-109, 7.8078730925887e+155,  1.15321039614628e-180, 1.03144115447886e-207, 4.96176373180879e+228,  6.64809130682519e+68, 4.56375318856507e-142), .Dim = c(3L, 7L )))
result <- do.call(NHMM:::rcpp_getNQQ,testlist)
str(result)