testlist <- list(LamdasR = c(2.79236147670686e-196, 1.26379330258632e+187,  1.42068194191949e+49, 2.58035513749295e-206, 3.02005550013883e-260,  -9.9122759758109e-57, -1.64035674249925e-118, 1.05390745649826e+182,  8.05606797801028e-38, -3.84354256622327e+136, 2.36081589563427e-100,  3.01724164497879e-124, 9.57301250646523e+229, -7.99809293195875e-243,  3.06030363511005e-110, 3.27695505950329e-93, -2.10373847983487e+36,  -5.29514598795293e-20, 9.81127061830259e+30, -3403.88378037291,  -364839.827923978, -8.45393891276032e+179, -4.53552102535884e+269,  3.95634524110619e-268, 8.72400335545415e-16, 7.84869121851595e-78,  7.10345658387002e+183, 6.87082786328043e-155, -6.90558603588891e+64,  1.10258217566985e+184, 1.69525406917008e-11, -3.2200871813294e+207,  1.87678984938135e-179, 7.6026610522376e-52, -3.18940703770689e-67,  -4.07827651100228e-125, 1.24680700116839e+68, -2.75820195448307e-295,  5.67556876054047e+224, -3.54964583317729e-194, 1.60096399571375e-198,  4.16403222004086e-243, 1.67598413281535e+109, -2.35867586410091e+145,  4.45587038472864e-209, 3.27437460602372e+270, 1.99018496701793e+90,  7.3743152627684e-288, 3.21584708469381e+236, -4.62773240474319e+76,  50002022.6447766, -6.90295806583465e+295, -6.94996635625781e+150,  -6.24894289801879e+226, -5.38464246327419e+306, 9.22390348570428e-177,  -5.22812133068865e-276), muR = c(-3.19868199272117e-152, 9.01759077219456e+269,  1.38132470505271e+189, 4.87533065195373e-255, 6.4658697437712e+299,  7.95413582065576e+131, -1.00073342069585e+287), nminuspx = -1483673224L,      w1R = structure(c(1.72768803709531e+298, 2.06508638022965e+235,      2.57128886083807e+60, 5.0028358535085e+206, 2.51342560425677e-190,      5.7842466770251e-140, 3.38609295640408e+172, 3.66560793745052e+261,      3.75434235039866e+279, 5.02226904951706e+247, 3.64171529309964e-123,      2.16482229769275e-116, 4.24765814704489e+220, 2.18964059267392e-127,      9.4135268504616e+276, 5.66444825321911e-271, 4.61164782277163e-167,      2.02014630009645e-05, 2.40581843665226e-253, 3.22299609761001e-140,      1.53489016484213e+28, 4.3019743191459e-129, 4.52665081068966e-91,      2.87279320761948e+53), .Dim = c(8L, 3L)), w2R = structure(c(2.2289329856724e-33,      6.07866588705862e-110, 6.9641909804063e-125, 2.89301997698689e+22     ), .Dim = c(4L, 1L)), xiR = c(2.6068234597061e-175, 9.97498045655483e+170,      3.12989848911561e+203, -2.10733316271681e+238, 1.35989412423915e-18,      -8.96180042509102e-170, -6.56877006726177e-40, 3.51078425115816e+255,      -2.1534200687437e+248, -2.66332285997838e+65, -6.87142395112435e+124,      -1.07663508607988e-144, 1.52909886877928e-300, 7.63294632966052e-274,      4.0034806650571e-11, -8.64244138994049e+102, -4.74697083405726e-102,      -6.36800314662311e-185, 4.16381583521708e-13, -1.44986890307992e-263,      -8.0026079513077e-243, -3.69190379185592e+67, -0.473314196735313,      9.62170953565631e+202, -3.51154651202914e+247, 1.82567694346624e-35,      5.5772357066007e+208, -211387484712028, 4176594.71512837,      -2.67540166047154e-149, 1.47113514408586e-140, 4.40126919860367e+216,      -1.29959671426824e-31, 1.76569933422775e-153, -601535673562.956,      9.12344488515541e+176, 0.000890438715319804, 2.02816954447841e-108,      2.32339076434377e-241, -7.55079051812266e+263, 4.67196601568927e+203,      -2.09189900449801e-282, 4.14996862487685e+223, 7.87643743619454e-221,      9.007118239422e+114, -5.09616776272607e-20, -2.46781596671773e+236,      9.34929278875763e-204, 5.71260077808286e+169, -1.77244743278426e+105,      3.12174922273452e+61, -1.52806616132056e-190, 7.41202253048063e-58,      -6.71924448609584e+294, 2.26162623218276e-80, -5.05717680792059e+59,      -1.62788683740859e+56, -677559555824494, -2.17220660925364e-212     ))
result <- do.call(CKLRT:::LR0_fixRho_LRT_C,testlist)
str(result)