testlist <- list(beta = c(-8.54895520316566e-301, 1.3339035497055e-248, -1.26477097232102e-203,  3.35398090278258e+81, -9.6356723256729e+246, 4.46502410423892e-281,  -1.31304533781489e+45, -1.37832491420588e+56, -2.15949517414775e-127,  1.50866544939614e+113, 7.26765325351408e+175, 3.31867029639321e+280,  5.54869505523227e-44, -1.35793973140315e+243, 5.54486950803958e-220,  -1.40384817940051e-211, 4.46502410423892e-281, -1.5553035798339e+188,  -1.24778909493792e+40, -2.57306063037323e-119, 1.52004557808979e+60,  1.32963166938095e-166, 3.40125144235098e-109, 1.75314595065512e+194,  1.67671055849531e-189, 2.38997650682061e+215, -3.56614035851493e+36,  2.93442524720716e-264, Inf, -1.00291494580151e-18, 6.16302455654957e-257,  4.29382501687994e-233, -1.36858908262609e-50, NA, 1.64080502232117e-276,  2.88112718339454e+82, 1.5334562573411e-69, -9.09162630434734e-30,  -2.73637786836891e-258, 8.63927002205008e-244, -3.73244134646377e+76,  4.76419051572855e-235, 5.84425539389741e-18, 2.03314478816373e+138,  6.26784293072045e-285, -1.41004122540522e+280, -2.19805441827612e-157,  -8.37108071093803e-242, 4.47151343470656e-170, -3.15062324015671e-66,  1.03079682389174e+58, -2.31145569163533e-254, 9.50394759402283e+189,  Inf, -1.20415764572055e-285, 0), iter = 3.62255112247094e+221,      Lambda1 = 2.06812091698399e+258, Lambda2 = -2.35343626632597e+201,      M = structure(c(4.96813013061971e-06, 3.05877441177351e+299,      1.78482162327618e-267, 3.71278074230733e+215, 1.55643869935388e-69,      2.54382105634365e+123), .Dim = 2:3), tol = -7.5774315452963e-06,      xx = structure(c(1.31473968794793e+175, 5.40161264649021e-100,      3.39833129340824e+125, 3.40789642296924e+186, 9.69047198235063e+230,      6.73306698683537e-38, 6.4635600481989e-151, 1.59640557116077e-52,      5.09911904296563e+163, 3.45677388916065e-132, 1.24460380553106e-60,      7.20562633815479e+218, 1.08043741625509e-123, 1.19811080292253e+114,      1.47798767371131e-48, 2.79300408352881e-169, 1.05128426170865e+191,      1.17110481246761e-45, 0.000180229156900244, 9.83405069148866e+203,      1.28219680584187e-238), .Dim = c(3L, 7L)), xy = c(3.60121839738469e+57,      -2.90075739412186e-290, -Inf, 2.24907131384901e+45, -5.19328201551168e+283,      -5.99793563621672e-138, 3.60672894695685e-308, -6.07558071656448e+177,      -8.32410803473092e-47, 941464371108.765, 8.26518760662218e-292,      -3.89195060908835e-22, -5.36855081727336e-90, -5.88548204171802e+116,      -2.60247574210041e-304, -1.23249955950561e-198, 5.80883520089949e+300,      -6.05275769926276e-158, 8.00194254610262e+263, -2.68048086007988e+199,      3.30595117733758e+111, NaN, NaN, 1.75388242044458e-61, -4178395.9437236,      -1.97498007728986e+172, 1.18872891457721e+155, -Inf), y = c(2.904292954907e+304,      1.95829025892581e+96, 408621202.198291, 7.57018780142953e+298,      4.25375425673147e+250, 7.6847992050367e-263, -3.10343331286946e-210,      -2.09494438686772e+28, -5.11696217593416e+177, -1.06124682910409e-16,      Inf, 1.8190988444782e+143, -2.6412070368278e+122, -2.24148611762665e-149,      7.50753893457024e-157, -9.72111002139374e-142, -1.4982461235762e+56,      NA, -1.39234975539472e+256, 8.27534068927102e+275, -1.55759888606498e-173,      37.3416112048087, NaN, 3.0039269932692e+182, -1.10728964833327e-49,      4.99077980335981e+250, 4.98748953559972e-209, 7.20297267252375e-212,      1.568920973708e+274, -2.39773847136917e-103, 1.87214724621631e-226,      7.30233611156726e-270, -3.13441345467866e-248, -Inf))
result <- do.call(LassoNet:::betanew_lasso_cpp,testlist)
str(result)