testlist <- list(ciR = structure(c(1.91920560976224e-251, 1.19983215734501e-56,  3.97230794012325e-282, 9.8809790802306e+146, 1.14404842490201e+49,  2.43474269728453e+92, 1.3877521109169e+306, 1.35413622853913e+115,  7.68617398266382e+109, 9.15706247400523e+63, 7.08913618501716e+37,  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,  2.23300712691874e-05, 6.38351250585375e-30, 7.88751888958809e+154,  1.64627054876331e-39, 4.60144321334404e-42, 7.90001325707782e+259,  2.7444644769296e-90, 2.58189658029914e+126, 1.56245155619712e+145,  2.52199076026508e+208, 1.11352244738495e-44, 3.3062300252042e-211,  3.32074812908401e-294, 8.5229080219038e-300, 1.20500293149312e-77,  1.19607444285061e+154, 6.9658234481955e+280, 6.00419112388813e-293,  7.19069106678401e+258, 117998678470259, 1.65138968525956e+122,  2.33680557214836e+99, 5.02357428992953e+207, 1.59791342550672e-256,  7.32104516887178e+28, 3.34324391896227e-161, 5.55107489256472e-275,  24037725099831784), .Dim = c(6L, 8L)), uR = c(-1.48913015309838e+39,  2.63725453740933e+261, 4.51945682641686e+163, -7.62766352772688e-53,  2.09617024723214e+257, -4.68831427091371e-154, 1.11903477574716e+232,  3.26286409658457e-84, 3.96692931002303e-30, 1.30945164738812e+193,  2.81167291417672e+284, 7.81344866205955e-69, 8.06437782716787e-68,  -2.43432862423038e-282, -8.66082579829582e-93, -4.44116795166925e-236,  8.79838796864221e-85, 1.18757307056025e+27, -1.93958723679818e+293,  -1.4797859307384e+74, 1.0829478318779e-20, 3.18894353286941e-291,  1.89411227126564e+44, -3.25228381230693e-308, 4.16222053993285e+189,  -3.47187673951786e+104, -9.61683738769097e+161, 9.71804279585044e-239,  -Inf, 2.17299108064979e+107, 2.26895126666313e+150, -8.40097381850818e+307,  1.13760189546125e+200, -2.04311773710004e-81, -5.96231150102709e+47,  -3.45018564135406e-87, 1.87350069967456e-225, 1.78742032507512e+27,  1.5457560660078e-223, 3.9114491893228e-103, 4.75074045149166e+44,  2.03194847659285e-141, -2.91324326516138e+212, 1.20155833324313e+91,  -2.30373608285758e-256, 7.8916857411679e-125, -1.33791239970731e+107,  -1.0992233037189e-83, -8.48368816965793e-131, -3.27398714521823e+63,  -3.38410933449517e-93, -4.03376812105127e+85, NaN, -6.783456706827e+233,  NA, 6.88318444663651e+174, -2.75811974752553e-154, 1.66811523321678e-190,  -1225456.09007819, -6.72853033935425e+227, -1.29886619450838e-120,  3.20339905305954e+244, -1.21482693215067e+115, 2.43581014863413e-09,  -1.64267229240635e+77, 1.69376167176247e-180, -2.96113780540984e+227,  8.68343785112204e-195, 1.0935372876868e-207, 8.82812941134646e-118,  1.0935372876868e-207, 1.35097132339656e+180, 0), vR = structure(c(3.60908643865453e+224,  1.11742128101669e+83, 1.97870122171185e+143, NaN, 9.37480792170664e+280,  3.07504141416437e-136, 1.01645313737868e-124, 1.00679150745081e-73,  1.27047634996911e-62, 2.13409614918679e-145, 2.01768927817267e+47,  NaN, 4.713762584588e-48, 1.7506159598139e-260, 4.13272931804741e+261,  7.50347923086546e-71, NaN, 2.90402077461892e-286, 3.56215199780015e-230,  1.43677827629537e-133, 7.46114516421967e-258, 5.0141334820982e+184,  NaN, 29072.6257709098, 1.41003229091807e-86, 1.93643921836204e+180,  1.99326012973524e-62, 1.39815628510302e-16), .Dim = c(4L, 7L)))
result <- do.call(mmsample:::ruler,testlist)
str(result)