testlist <- list(all_rho = c(9.82863042708388e-120, -1.09816773312264e-185, -4.04543412754653e+77, -5.15084059994015e+144, 9.09837554567523e-177, 2.58875805574556e+107, -5.60542452725662e-208, 1.72264600960821e+261, Inf, 3.63921716496192e-196, 8.67093785325611e+134, -4.89445803076185e+116, 6.04190599442985e-278, -1.11466614862468e+141, -2.26109781931447e-94, -Inf, 4.21577866746849e-201, -9.31819156452727e-278, NaN, 4004992664747.29, 3.85025911778709e+285, -8.69215620878833e-75, -3.59074820686081e-68, 8.76449343894627e+45, 1.40465012770643e-80, -3.93162759468686e+234, -7.29958054757909e+231, 2.81959484367971e-268, -1.09598749123206e-261, -4.00280718162393e+21, -9.2835152096202e+285, -2.00853782437296e-29, -4.12180587075041e+25, -1.70437460793352e-161, 2.3349654400352e-48, -1.5773512898397e+128, -6.52985375739634e+211, Inf, 4.45565032197795e-207, 6.37079751726556e+151, 1.48992042939456e+203, 1.59010880690145e+173, -7.07739599075372e+213, 2.05069249315504e-289, 3.57372645568873e+290, -4.18518945943337e+189, -Inf, 2.02082018446363e+190, 1.3801770828076e-120, 7.61000423154059e-239, -7.37100897838874e+133, -5.51607270046686e-115, -9.98811269722516e-210, -1.64541060166408e-177, -2.78962893018154e-148, 0), AR = structure(c(3.70192768436366e-142, 1.53146455894471e+261, 1.00386727276721e+151, 3.96348206010213e-225, 5.50408440650305e+193, 3.78884819629261e-103, 3547544850345.14, 1.02741721626597e-121, 2.46125729103039e+38, 1.97377113982106e+203, 7.30519423431887e+81, 1.37044238118084e+58, 4.05732410868328e-47, 2.70720906703094e-48, 2.22556848811577e+94, 5.38739995510198e+65, 1.61129089330948e-214, 6.45982625258154e+301, 1.66885142355541e+130, 1.20548075385669e+60, 53800.4796405227), .Dim = c(7L, 3L)), K1R = structure(c(1.05414702709612e-68, 1.86446765666332e-211, 449058805123160512, 2.72550962279315e-214, 6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24 ), .Dim = c(1L, 7L)), K2R = structure(c(2.26826065394075e-294, 1.69214887635963e-72, 2.19647580872514e-56, 1.54154212574147e-261, 1.75552992521395e+70, 2.86555489089896e+90, 4.82067410803116e+210, 7.6301488414695e-75, 2.94576051165654e+186, 3.05508620742933e-115, 2.21844362553763e-63, 2.44674583935188e+228, 2.44527575082657e-89, 7.36896789779786e-209, 1.6633654797488e+72, 1.45745619825011e-84, 8.53546114526541e+161, 3.09937765454676e-158, 3.95465385030692e-169, 1.51562050952451e-167, 2.14755111587525e-74, 3.05571876439121e-170, 1.51007261204457e+259, 1.05369956531537e+280, 1.73775029250148e-47, 1.66721044640579e+131, 1.26728528595525e+79, 3.84739392816999e-178 ), .Dim = c(4L, 7L)), LamdasR = c(7.73894090364282e+56, Inf, 5.8411322051019e-181, -8.42785665887644e+143, 5.41919559362911e+224, -3.26616780765831e+22, -3.61801180595461e-28, 4.26160521294394e-265, 1.04046677304656e+207, -2.22379705198855e+259, 1.92430638783797e+304, -2.54783489297397e+255, -3.35089318818035e+72, 8.10025615446989e+78, -4.35803245378201e-244, NaN, -1.65729122766385e-30, 7.67481076491859e+144, 2.47976689138235e-190, 3.20119432918343e-59, NA, 3.35419034392447e-218, 3.09581969478798e+284, -4.12287870525749e-196, -6.7083069619851e+90, -1.15603236846106e-273, -1.73811285114842e-66, -8.94587265417823e-253, -Inf), LR0_allRhoR = structure(c(-8.00252252544034e-262, NA, 3.47233752491283e+305, 1.09561432372491e-210, 4.01931917787459e-159, 1.85411346114152e-111, 1.44169931402659e-78, 9.94407465015273e+23, 4.51090384548061e+135, 3.77669809670576e+267, -8.00252252544034e-262, 7.40337653836337e-91, 2.53374831178246e+203, 8.75184921241086e+49, 2.91607359074706e-194, 2.86989969589464e-123, 8.57665781052281e-54, 7.60532511144472e+176, Inf, 9.0920488497234e-204, 1.44567415581976e+304, -Inf, 5.069198886554e-20, 3.39959044025802e+31, 2.16906168896788e+143, 1.60931777181412e-32, 9.30225629040784e-72), .Dim = c(3L, 9L)), nminuspx = -1240907791L, P0R = structure(c(5.13050963172059e-260, 2.24643951434374e-212, 7.64098496446667e-62, 4.73803511172099e-46, Inf, 814198.417750288, -1.05877353233728e+151, 7.87120413662607e+214, 3.24121423714853e-117, 5.30848830628364e+199, NaN, 3.24698153631562e+214, 7.32530796190841e-236, 3.1722091797675e-22, 9.46237382164195e+259, 2.2847880234247e-39, 6.88540996260128e-24, 7.13668622549712e-20, 5.49818530934309e-129, -1.05877353233728e+151, 4.46775288698349e-52, 2.34419089012109e+41, 1.96571359911086e-10, -Inf, 9.04432220955322e-111, 1.64493694725969e-31, 3.84221017767163e+137), .Dim = c(3L, 9L)), U1R = structure(c(2.24541576981577e+300, 1.07087442450951e+72, 3.33572279710254e+279, 6.58512259286819e-144, 3.40235306170502e+246, 2.84214920157746e-109, 2.4609716900359e+195, 2.27637821870708e-120, 2.9827583696455e-199, 3.7893140390996e-281, 1.31808130344188e+303, 1.05428752150036e+296, 1.77768362391275e-59, 1.93865808626448e+145, 8.10852847756192e-265, 6.27059718847202e+208, 3.34206183842001e-230, 199691.482435158, 1.80863215467127e-211, 1.13937151336118e+164, 7.79333216263932e+105, 1.61699105928669e+196, 1.42170925385195e+273, 6.28513531661004e+245, 1.27338410817795e-62, 2.7313643045935e-304, 8.19745874159301e+46), .Dim = c(9L, 3L)), wR = structure(c(5.45705345521291e-281, 3.21230191189337e-166, 1.59948666273167e+263, 6.27445346743148e+261, 8.26027936319865e+86, 3.77413427607249e-119, 2.2685704398232e+213, 4.71688465956924e+181, 1.78345144530128e-211, 1.71435176714975e+27, 1.09206504357957e+57, 6.24646248592427e-214, 2.07700253006869e-125, 2.85685049310965e+212, 2.8436519639493, 7.88699024031658e-116, 3.47489627504004e-288, 7.33765586620497e-143, 1.26152086800519e-252, 7.49664907444294e+293, 6.34966781180638e-114, 1.40838180313554e+30, 1.4530228291034e-14, 1.23655728130677e+101, 7.69619745326958e+261, 3.15214157546588e+268, 4.93296580245456e-209, 1.46848251267266e-111, 2.59553480281482e+130, 7.89613301814214e+73, 4.93775928725978e+96, 1.4539875856157e+172, 8.89135735916727e-54, 101720359.368851, 1.7844498584488e+290, 1.79922836443096e+64, 3228060.53029388, 1.91699339656427e+279, 1.85800757976839e-228, 1.94851027751339e-282, 3.08473320494967e+220, 7.37969695678299e+227, 3.31737088145275e+259, 8.18429322150112e+299, 4.98478127418534e-14, 2.04809539769149e+284, 1.0492665978148e-145, 2.8361619321639e+273, 4.65701884184743e+265 ), .Dim = c(7L, 7L))) result <- do.call(CKLRT:::doubleloop_LRT,testlist) str(result)