testlist <- list(all_rho = c(7.80092808233242e+194, 1.43109426994242e+195,  -6.6298651421267e-18, 1.39596385117766e-158, -9.96844865397545e-88,  -1.79157470432453e+215, -2.91380679314306e-248, -2.37336725875135e+234,  2.79316358927865e-101, -5.51524947776281e-292, 2.01538756194131e+172,  895320881589703, -5.00456127679274e+92, -1.06352854797194e+156,  -6.67167799516828e-36, 5.11893351527997e+61, 1.17239248437367e-251,  2.70549205780131e-277, 4.05655771151008e+236, 1.88314296204169e-286,  2.68848712961956e+261, 7.90448706390485e-212, -1.904686330071e-121,  -7.6217715070253e-265, 2.26465176108083e-268, 1.16384415744112e-32,  -1.21031207865244e-243, -1.64474962323349e-268, -5.57840994346076e+206,  -7.97153047857928e+31, 2.25879877496936e-222, 3.20569897379346e-168,  -3.07249717353601e-125, -1.45154499789743e+100, 4.35263563969527e-224,  -8.66670730348326e+120, -2.22469586471952e-253, -64269956873964.6,  -36113844128.9992, 5.47660638464146e-180, 8.57114013100676e-145,  7.47306297426678e+94, -7.34375525192478e+244, -5.16763059983558e+159,  4.54414458314378e+44, 4.56195369331035e-145, 2.3212020500189e-90,  -6.75904241196689e+199, 3.88850359881145e-246, -9.12619528437278e-194,  3.06594073820131e+24, -1.84274442591995e-53, -6.18738018734996e-115,  -3.60256530509803e-265, -6.64443756670727e-66, 2.01725269518487e+278,  3.13449516151293e-301, 5.96424019055665e+153, 6.9623505335708e-61,  -5.56024460423616e-58, 9.46565230404385e+103), AR = structure(c(1.96735162696382e-42,  6.45490835685765e-158, 2.35456609220815e-241, 6.26858003024816e+90,  1.97067341964444e-116, 1.73408606167916e-76, 1.07094280555022e-152,  2.31168622963039e-123, 4.74814912605682e+224), .Dim = c(1L, 9L )), K1R = structure(c(3.07504141416437e-136, 1.01645313737868e-124,  1.00679150745081e-73, 1.72388861803421e-189, 2.13409614918679e-145,  2.01768927817267e+47, 5.91095692082169e+64, 4.713762584588e-48,  1.7506159598139e-260), .Dim = c(1L, 9L)), K2R = structure(c(1.89087322609752e-207,  5.96709701843709e+222, 4.04706313516419e+285, 3.7626618448033e-189,  6.43236803807809e+268, 5.39985946291443e+265, 5.98733429514383e-195,  7.79026068879629e-248, 2.56542861955454e+139, 1.64069171996594e+273,  603483869109082880, 1.08393232379906e+32, 5.18128920030506e+69,  6.22685078316265e+304, 6.03440657509623e-216, 1.46264637505326e+159,  3.47153268056409e-38, 8.27271774349903e+265, 3.18677582134147e-42,  4.71727387541793e-75, 2.98962599613851e-36, 1.44019333353852e-33,  2.16906432662576e-76, 2.79761198106498e-19, 9.15175952184142e-141,  1.91850711721534e-134, 2.86007640694796e-50, 2.32796616886412e+145,  4.84343646623184e-188, 1.52871078943966e-30, 6.17508736722585e+202,  1.64370552367148e+109, 4.0590899214912e-90, 5.75714229119744e-126,  2.81753634916491e-125, 2.94390219356055e-273, 3.6964916927204e+59,  2.79036338518385e+70, 8.81498710243452e-78, 1.23372961517636e-286,  4.99855293122333e+39, 5.30629498743791e+96, 5.29533542976637e-219,  1.61221443983422e-09, 5.02389220360242e+170, 3.14313476052295e-44,  1.20419043164974e-302, 1.14813789523563e+292, 5.31901013244645e+30,  3.36182611277665e+44, 1.37001499319239e+227, 1.54295881095108e+211,  5.52604579104815e-63, 4.23359428032453e-285, 1.98386334857017e-123,  2.43608676251529e-237, 1.20524777212398e-216, 4.19932760233666e+122,  4.9612065576467e+38, 9.42684941985268e+205, 1.0045503185744e-20,  7.91189401855882e-214, 1.18575016502729e-151, 2.63870861241957e-98,  2.51268893692188e-95, 3.88021650128274e-160, 7.34701609186608e+70,  1.0430654227122e-111, 2.74921621595062e+150, 8.59248243395539e+198,  3.00556878974661e+184, 9.0494484022777e-236, 5.32788080980822e-209,  2.96489239089311e-27, 3.88843852414569e+259, 1.18903197715372e+219,  4.40546439056465e+256, 5.85807553863928e-235, 7.19931402052033e-119,  2.18880145485232e-293, 7.9035228883341e-151), .Dim = c(9L, 9L )), LamdasR = c(-5.23795971022895e-297, 1.28948334979827e+38,  -1.23890557871084e+95, -1.22283624339187e+23, 2.87472269374773e-226,  8.00176996762324e-187, -5.49990926304828e-142, 8.35105396863556e+99,  6.60931434143899e-163, NaN, -2.52849440319638e-261, -7.24488900607623e+130,  8.7257339094867e-32, -4.76763670736231e-293, -1.46858176544178e+113,  -5.39841804179253e-139, 2.32038026042512e-77, -3.6978071940811e-286,  6.44792720429636e-198, 5.34935791460561e-225, -7.95497632874077e+292,  -1.44792760743822e-301, 8.15050816022448e+246, 4.03252730183446e+51,  6.94892821055139e-199, NA, Inf, 2.99551572580886e-12, 1.20360086700795e-27,  3.78358487163709e+31, -1.96189242602286e-19, -8.45417508745687e+251,  -1.88858032286121e+174, 1.54420607318338e+68, 3.02707895030898e-159,  1.74966158940057e+222, -0.0477358032159281, 2.9502151145396e+257,  -4.56402617487925e+210, -3.87495123815891e+61, 7.21638044137489e+86,  -Inf, 1.58041218408251e-283, -5.54005648771118e+20, 2.40527350838314e+86,  1.91814366285261e+255, -3.37341979280814e-226, -1.45169293620137e-263,  -5.70430748454554e+40, 2.40888926901529e-64, -1.22440763282679e-101,  1.16390607478784e+67, 5.05666452505544e-159, 1.63614837514824e-297,  -8.05109627128178e+181, -Inf, -1.60325442672362e+140, 8.33935431521258e-134,  -8.24339737924877e-271, 3.35101092692082e-111, 0), LR0_allRhoR = structure(c(-1.92094629515643e+181,  7.2025802291279e+68, 1.74668868643014e+253, 9.35021334176498e-40,  5.73194142024862e-291, -Inf, 2.87628036640688e-26, 1.06544110728073e-248,  4.82275232494884e+178, 2.52646636804635e-162, 3.56061965826599e-144,  1.69184859836351e-35, 9.50259805969052e-270, 4.17673921624679e+270,  2.17951212390077e-151, NA, 1.35233804183617e+21, 1.40676779161352e-173,  4.84586566162581e-185, Inf, 8.42252199170684e+306, 7.51948544477518e+283,  3.48401055903669e-283, 5.85055725768901e-141, 9.69592830413579e-83,  1.24987376646138e+261, 44565313.9218405, 4.80520118395976e+240,  41358569630649000, 3421292737698929152, 3.74636117781126e+186,  4.57596357799524e+210, 4.08847866090547e-122, 2.349019419467e-188,  3502745.53997497, 4.29101367777021e+236, NaN, 3.54373622083002e-190,  2.72288312829847e-23, 1.79355948974386e+295, 1.34708920817323e-174,  2.84895736858552e+79, 4.25666830335266e+269, 1.46981583508673e-157,  1.55166556243507e-293, 3.50911456221656e+76, 2.20531556764349e-274,  9.37624498981576e-157), .Dim = c(6L, 8L)), nminuspx = 1122477555L,      P0R = structure(c(1.57839187487626e-259, 1.34274085176341e-145,      Inf, 9.36806884641425e-57, 2.9885796475921e+235, NA, -Inf,      -Inf, 2.88625376657029e+45, 5.414569254026e+172, 9.40942267311101e+113,      3.04492274881181e+180, 2.77772907286509e-224, -Inf, 2.58762410721252e-261,      2.27958931117027e+275, 2.5747527252262e-64, 2.80829407329331e-163     ), .Dim = c(3L, 6L)), U1R = structure(c(7.44531855028714e+222,      1.88736174517358e-211, 5.15340389603083e-65, 8.53733537190672e-294,      3.4258711145363e-141, 2.21669040197875e+141, 1.83829593567448e+305,      6.7173578709118e+45, 2.37005975393948e-251), .Dim = c(3L,      3L)), wR = structure(c(1.20500293149312e-77, 1.19607444285061e+154,      6.9658234481955e+280, NA, 7.19069106678401e+258, -9.66702521690648e-285,      1.65138968525956e+122, 2.33680557214836e+99, 5.02357428992953e+207,      1.59791342550672e-256, 7.32104516887178e+28, 3.34324391896227e-161,      5.55107489256472e-275, NaN, -Inf, 1.07469679612308e-278,      2.2863707919693e+104, 1.29799270450161e+107), .Dim = c(3L,      6L)))
result <- do.call(CKLRT:::doubleloop,testlist)
str(result)