testlist <- list(gamma = -1.25619439876261e-99, P = 9.6463253813567e+187,      x = structure(c(3.10045080631114e-140, 5.64837120621297e+125,      4.06956751982026e+95, 6.59400621480488e+135, 1.18393360738069e-272,      5.35892842952669e-173, 2.86977581121643e-15, 2.2386738721768e+270,      2.98853116521547e+143, 3.08420528117937e+276, 3.33889424831818e-239,      2.00058425814441e-113, 2.46562043224079e-85, 1.89261876993418e-113,      1.78433108967668e+169, 9.46801839280429e-51, 2.48283345537456e-176,      8.21195771569161e+288, 4.5560582271321e+117, 1.0797329973067e+245,      3.91726596706926e-283, 2.36534175024629e+188, 4.62886637564784e+149,      1.95531992383552e-132, 2.24216371882707e+243, 3.15962229513625e-133,      -Inf, 1.03502208669886e-277, 1.44329558427272e+189, 2.15560984776751e+185,      1.75933361941065e-114, 8.24221549962438e-287, 6.79398327699747e+55,      7.20263011526498e+40, 3.80926860974838e-156, 1.33550472691882e+204,      2.62538996893194e+129, 6.8576940616979e-16, 1.98743400939048e+154,      1.51886024823543e-282, 9.00123031400698e+84, 3.0243884984874e+234,      1.08707866440307e+120, 2.96591522379483e-146, 1.95816798750811e-131,      1.1753306209927e-122, 1.0936207305258e-194, 6.71962574015995e-160,      Inf, -Inf, 1.92199862573809e-190, 4.96534090618195e+107,      1.35722207577192e-292, 3.18497333306282e+232, 3.64103714844602e-233,      2.88131094116101e+218, 76065827.688744, Inf, 2.8816084901775e+131,      1.27133442567742e+256, Inf, 2.58069493284837e+92, 1.83131586623993e+43,      2.30802117553111e-243, 3.00755495315194e+162, 9.88725471179051e+56,      6.83873559857537e-277, 4.07538849532164e+27, 1.15617076673217e+141,      5.3595347089513e+194, 1.83289283459492e-105, 3.22121394014806e-307,      5.10252627988266e-139, 1.55281134536723e-61, 2.06418845533417e+82,      8.83202732272626e-282, 4.79072923958292e+75, 6.2030748819062e-218,      27.5113146236504, 7.46244315476878e+67, 2460.21952908724), .Dim = c(9L,      9L)), y = c(-5.51075422447846e-282, 1.12721217890837e+271,      2.9729297112535e-135, -5.64072057025014e-246, -8.97412910754601e+223,      -0.000149059420130128, 4.00006695917432e+209, -1.54856930949977e+206,      -4.76640662754041e-43, -4.14492971520566e+211, -1.33375904223317e-19,      7.50294615700782e+275, -3.54919152161866e+86, -8.46815791703838e-38,      -4.6931372601083e+27, 3.74333823177032e-85, 7.18084704185976e-13,      5.43925348550642e+77, -2.63954756372253e+203, -8.035191682105e+62,      4.52785719052646e-99, 1.62589982823472e-175, 1.55591213325014e+162,      8.63031018389494e-255, -3.60762946158194e-249, 1.61089170743615e+221,      -3.2420135871162e+210, -2.97824390177137e-198, -2.02672679124856e+265,      -4.09672374931837e+105, -3.55042108182604e+163, -1.9150834128595e+25,      3.03926171802815e-246, 8.75722384783549e-71, -5.9539182104698e+28,      9.7054729016666e+22, 1.7151226723779e+109, -382818358160.389,      -1.69542457924557e+47, 2.64297568621164e-111, 8.46097541770778e+100,      -1.19732208473033e+90, 5.38108856078511e+282, 9.30723297885881e-143,      -3.51918368026617e+251, -7.09263908480733e-09, 2.46539398545318e-70,      3.16704468326766e-46, 7.18541476435729e-176, -3.77063484535263e-05,      6.28890620448226e+190, 6.08729433160384e-232, -1.61117534396225e+300,      3.61015168119058e+131, 8.041084637703e-159, -9.63564433138483e-293,      -9.60941475400201e+153, 2.76131403207845e+80, -1.18033525358934e+188,      1.55329352025042e+109, -3.02382294508374e+224, 7.50163458170595e-87,      4.20512184659921e-74, -2.84719579668055e-06, 4.50552038952894e+266,      -1.92601461032577e-262, -3.28123543137527e-305, 1.22974973746519e-265,      3.11543962813383e-114, 5.2232756672494e-106, 4.77946622220252e+115,      1.62532667148435e+122, -1.90030349998113e-201, -2.36808496497317e+49,      -1.6023561721826e-75, 1.58486967424803e-43, 5.95905851469336e-174,      -1.27549007575047e+189, -6.58490364599251e-43, 6.19214849642716e+187,      6.59067728250347e-16, 1.07687189901527e+222, -2.09951154432044e-103,      3.53686265923991, 7.50472634476625e+195, 2.47258019511576e+112,      -2.19099479463774e-291, -5.76947889082735e+46, -3.47717096246514e+154     ))
result <- do.call(dfphase1:::alasso,testlist)
str(result)