testlist <- list(Cm = structure(c(3.13959654441722e-304, 4.89132900546315e-149, 2.75752852553006e+278, 2.50428627513876e-151, 160486277994817312, 2.68177722001455e-209, 9.16841495880202e-181, 9.92178054146977e-05, 9.68163320417297e+234, 1.29305928706502e-201, 2.80599658781103e-173, 1.46794609877318e-67), .Dim = 3:4), I = c(-6.99769588748251e+166, 6.16748170843634e-181, 2.44841882989057e-96, -2.44214410826362e-105, 6.16326133825437e-301, 4.11422676323664e+239, 2.23166259631861e-190, -Inf, -2.56204929236839e+106, -2.61306367690819e+28, Inf, -4.03234678701705e-177, -8.83163370870968e-281, -4.08097346307885e+256, 7.65124411613569e+169, 5.18550032154573e-222, 1.93780084796993e-294, NaN, -Inf, 6.94979905004378e-64, -1.37866290508356e-129, 1.33108275453342e+53, -1.78656073299997e-269, NA), OCm = structure(c(1.50989975702448e+244, 3.65523505275111e+162, 7.70143788155388e+32, 1367892337973879552, 5.60520862673013e-146, 8.87196307930725e-234, 6.930948393395e-155, 2.34161423214803e+84, 8.44160484483052e+212, 3.33840937041775e-49, 7.96947202547277e+159, 6.67596741791752e-234, 2.29189265571913e-197, 2.73817035918574e+257, 4.24444407010332e-27, 57500054264.1982, 8.40372799188009e-252, 1.03627750528369e-66, 2.42591984231945e-161, 4.26913028485383e+166, 2.25168911113217e+140, 1.92519529922101e-57, 3.48604341941204e+89, 3.71714533523131e-75, 1.8567538450714e-14, 6.6060554616603e-120, 1.97683783282652e+28, 1.22212487381189e+29, 2.28304464374814e+226, 3.87019436596516e+158, 1.72431664424024e-195, 3.80450875790569e-249, 1.21709238707383e+274, 7.90368664269689e-102, 7.70305312062904e-08, 4.03264479687405e+42, 1.95341195366418e+142, 1.49749973962963e+94, 9.033402556372e-206, 2.47170710073871e-63, 1.18577943691305e+41, 1.05318457254865e+290, 6.8583050391055e+232, 3.9765726330961e-234, 3.65782024959272e-104, 1.52007984271719e+246, 1.35026330678329e+162, 8.78979901466925e-34, 3.08642271454434e+231, 2.11946524469894e-183, 4.74298568887642e-195, 1.7748189737929e-286, 2.58316204771628e-299, 8.69269127089469e+253), .Dim = c(9L, 6L)), OUm = structure(c(1.03102430571978e+168, 4.28500426206018e-111, 4.34949099021889e+28, 7.76657241912261e+104, 7.35641270905542e+59, 2.06343504959222e-280, 4.85607992385483e+169, 1.05338395292885e-116, 1.6953784308198e+90, 4.64813199328406e+57, 1.01434781201311e-240, 2.90118250351171e-284, 6.01911180512763e+154, 8.68079703674509e+22, 7.34059808217859e-135, 3.40974837536901e+136, 4.50605181042299e-250, 7.02631009737847e+36, 1.45810563645944e-203, 1.51153926167833e-289), .Dim = 4:5), T = c(-1.47446151073246e+99, -1.27961206479778e+194, 1.71574825582447e+260, 1.65074922727256e+175, 6.95046511423536e-113, 3.95092002228522e-95, -1.41967879674171e-282, -1.21733213721011e-96, -5.88177235456978e+23, 8.66430952356091e+131, 1.9936150237452e-16, 2.94683278167621e+227, -8.4200415565435e+196, 1.52950927667306e-29, 2756293749768.52, 1.20076889312162e-281, -5.46997097234828e-269, -1.78754916067072e+90, 2.89634777389095e+75, -8.95904431734589e+44, 1.00753892760368e-129, -2.58486291488213e-62, -1.11080434886657e+129, 4.55672198125749e-140, 2.31513936612365e-173, 8045068756692526, -1.2657069443236e+181, -5.20244047692928e-58, -1.59595384749737e+163, NaN, 1.30564741796157e+76, 1.24897615542667e-47, -8.23364072936773e+301, -1.01678454700447e-166, 2.94565025435445e+123, -2.66718205461245e+54, -7.01970903778025e+150, -9.87079848208858e+151, 9.34976310408746e-74, -5.27947810402767e+251, 1.77502937414703e-215, 2.91550798000262e-142, 1.58797564043148e-59, -5.19901485126463e+246, -2.53887037310856e+219, 9.41626035507144e+24, 4.63339291228886e+83, 1.40068941522612e-25, -75315867978948.2, 2.73652499845518e-146, -1.40371625333373e-306, NA, NA, 1.39106276479259e+123, -5.40240107252513e-25, -9.44356237630422e-207, -6.59160843113126e+183, 5.29531553038105e+190, -629.9872013032, -1.53814007226298e+211, -2.97381517339522e+299, -1.69431191655845e-115, 2.1742002032739e+281, 4.21922117589558e-203, 3.89388812296374e+55, 5.38459096679879e-248, 3.43845188107588e+106, 6.19520589254524e-12, 5.46946100787723e-191, 2.94565025435445e+123, 3.56836483652444e+202, 7.06213144016949e-240, 7.58030342123671e-271, 2.51069070255659e-96, 0), Xm = structure(c(2.04497074846647e+136, 1.06674872625902e+83, 8.72901105396182e+230, 4.46605558080925e-226, 2.20757323101032e+23, 2.13659311203577e+227, 4.45635545279673e+43, 5.40881497080057e+230, 1.02952964177647e-158, 4.84545621038514e-227, 5.09137482177041e+157, 7.94465857890231e+307, 1.26808400757693e-95, 8.70197131987765e-29, 4.68003259112859e-65, 5.39714968117352e+26, 7.98905260505671e+266, 1.60567735040121e+133, 1.20035344478603e+237, 7.32006549734412e+124, 7.16805165391372e+40, 9.02948365463897e-223, 9.63986321309764e+54, 2.32173889369504e+256, 1.62227257864478e-55, 1.79951756095092e-181, 3.11848943167496e-64, 1.23301879780685e-39, 3.20729933243485e+187, 8.39664881234218e+221, 2.01518928619582e-216, 3.07498563586962e-72, 2.20363448235015e+43, 4.75535442866476e+302, 3.5941306976151e-192, 3.81823966677823e-199, 1.00843591123625e-120, 8.83803827747656e-269, 1.33608980877352e-251, 3.43661831809989e+35, 1.66510610680013e-254, 5.97280014884222e-308, 6.78558653568902e+229, 2.86817078859104e+281, 2.12243218086233e+31, 1.41706098007494e+162, 1.58401695939918e+187, 1.27138813638146e+87, 2.19246332123422e+204 ), .Dim = c(7L, 7L))) result <- do.call(CMF:::p_covUsparse,testlist) str(result)