testlist <- list(l = 2.00737633849558e-38, labels_ = c(14607088L, 1231469013L,  1129044184L, 1543645765L, -830270893L, 847065231L, 689470510L,  919922486L, -1295439876L, 803262834L, 749357704L, -1401631366L,  -136262359L, 1576909191L, 355841355L, 161252028L, 1705621652L,  -1987508555L, 860962271L, -989111875L, -349772216L, 597675832L ), nbClust = -712669986L, r = 1.87595955300965e-34, X_ = structure(c(954.619049032124,  4.03122089376281e-103, 8.58559690036031e-07, 1.09616541634978e-135,  1.49507500680207e+282, NA, 4.8584789701694e-155, 9.73251743751728e-257,  9.77106323362451e-95, 1.59935891271364e-219, 3.6267406926106e+276,  9.3083053297104e-138, 4.09716176195855e+47, 2.35355460498623e-176,  4.02270221514791e+176, 2.85288942665701e-14, 5.17781426491588e+105,  2.59099225458739e-68, 8.40608210163827e+118, 5.1139437074965e+143,  515176725.964064, 1.90988317189629e-229, 1.88112066722191e-140,  1.18385829419564e-216, 1.61222685376196e+229, 5.62204401130072e+284,  4.1985610420276e+214, Inf, 6.23760665871804e+256, 2.38723925812655e-271,  4.2365389081807e+262, 7.49285914241919e+260, 2.6586580430876e-149,  7.35556436499467e-289, 1.1164284165744e+200, 9.84997881102224e+122,  1.0806812155756e-237, 1.27446005289295e-225, 1.49057439250001e-39,  5.08475494093516e-225, 1.38424850658524e+117, 5.95892990386809e+31,  4.01406542506697e-209, 5.89189626014102e+51, 9.20243546597089e-140,  1.65509200495089e-37, 9.11589445703615e+29, 0.294649941123457,  7.66404604667205e-113, 2.11836915642473e+68, 1.99643491873697e-141,  1.75410010367575e-70, 1.78770353637774e+280, 1.9371099295731e-173,  663214776778451840, 5.74928421179841e-103, 1.43849600534002e-250,  4.8686405370412e-227, 4.07598509792183e+266, 5.26815200203459e+89,  2.10944085848799e-227, NaN, 5.02837169166103e-217, 4.86840351687347e+44,  5.32133725338138e-188, 8.33173932026252e+144, 5.03035051735265e-163,  3.5539319758706e-308, 2.73703710007578e+86, 261568716.067493,  1.82876403322816e-181, 5.3517636555711e-198, 2.7972089430423e-52,  9.07186166526296e+288, 4.45117581488689e+136, 1.19461280227173e-290,  4.20965945962986e-153, 158008814.622929, 2.4934853341934e-228,  1.03277606403201e-156, 7.08933039049028e-274, NA, 1.08724796700311e-182,  -8.51189803621161e-07, 1.88132294565959e-193, 448817.973423928,  3.22386213553242e-233, 3.12331436710257e+53, 4.84993687143472e+58,  4.90352252085468e+260), .Dim = 9:10))
result <- do.call(SelvarMix:::rcppDiscriminantAnalysisGlasso,testlist)
str(result)