testlist <- list(dMSEmat = structure(c(7.95256273362598e-169, 1.16028821742152e+154,  1.9108017537312e-108, 3.74099480098089e+283, 7.69349063349751e-259,  16434.5420101032, 1.06812704368158e-135, 1.74794287765051e-205,  8.42508202034865e+170, 1.21809336550259e+210, 4.00855211526054e-155,  4.24272694241733e-237, 3.97007598355302e-143, 1.01240151385669e-262,  4.91081287407671e+200, 8.93580372168375e-170, 1.68902424680952e-29,  1.22812705429892e-111, 1.64555287542017e+148, 1.22359691931398e+141 ), .Dim = c(2L, 10L)), dS = structure(c(Inf, NaN, 1.06120026790847e+245,  6.6847459078229e+300, 3.26919855786248e+213, NA, 2.65834811396659e-206,  2.35320170732161e-89, 2.20337592849666e+238, 4398578.35859148,  4.37228328915417e-57, 7.8626015467044e+268, NA, 1.23339446435737e+81,  1.40865303151791e-72, 1.52537063581183e+209), .Dim = c(2L, 8L )), I = structure(c(NA, -Inf, -Inf, NA, -Inf, 1.55275352858005e+40 ), .Dim = c(1L, 6L)), maxlevel = 1400034706L, MSEmat = structure(c(NA,  2.07285968017074e-39, Inf, Inf, 3.3018617552794e-51, 1.78534829423987e+224,  -1.85161644954412e+290), .Dim = c(1L, 7L)), numpara = -1757019200L,      S = c(-Inf, -5.6240952560463e-74, -1.81481238743869e+239,      1.91904184414346e+115, 11596.7442332171, -5.6240952560463e-74,      -2.01497906900428e+245, -1.10097218493223e+43, -1.64586293424346e-294,      -2.39020287692848e-229, -2.75979671922779e-36, 6.88627187884836e-81,      8.14517464734596e-29, -1.38685790052267e-28, -5.5596433982516e+86,      3.99629515980045e+126, 2.79425824274609e-119, 5.60965354337939e-130,      2.09906261210573e+276, 1.32650291197046e-76, -8820478923641666560,      5.02459606303515e-302, NA, 6.40737531625339e+283, 1.32849810435136e-98,      -3.969115448658e-144, -2.45961723580641e+150, -2.83474656153764e+92,      2.11903916136826e-258, 2.5794711788235e-127, NA, -8.75104574732065e+35,      1.60368881130448e+187, 4.83098921181948e+106, 3.52563128048486e-126,      4.91556103429207e+38, 0), w = c(-5.02291637596725e+117, -5.72941592499415e+144,      3.57163680144006e+306, 5.1074502371164e-90, -2.60609401675829e-23,      -1.01324304677219e-174, 1.23214175407772e-272, -2.47342710164104e+92,      1.60773784325527e-28, -2.4671181621373e+282, 1.54162529563486e+153,      1.27626918971496e-286, NA, 5.05723775065159e-294, 2.12400470318687e-163,      -9.51322527977542e-197, 3.19247409491708e-184, NA, NA, 1.80254340298381e+45,      -1.19984617346502e-167, NaN, -2.85375313625005e-285, -4.96181582679852e+212,      2.93452688424718e+51, -3.48461004441606e-264, -2.09114629438106e-209,      2.70314661994904e+165, -4.35122767000865e-245, -4.7888039998992e-91,      -6.156071458036e-134, 1.58392495589908e+299, 1.75992208404568e-188,      2.92513266167968e-276, 2.05443988553919e-194, -8.74339335425147e-139,      3.22331413379946e-237, 6.20751978617475, 8.2741183176495e+256,      6.67259751396664e+42, 1.74060816995693e+94, -10461517900.5758,      8.21606235820788e-152, 2.27704808300536e+266, 1.32765433246678e-258,      -6.5879078243921e-221, -4.94509055290786e-161, 8.46074917608266e+220,      0))
result <- do.call(CGGP::rcpp_fastmatclcranddclcr,testlist)
str(result)