testlist <- list(ext = c(NaN, Inf, 2.21088008928419e+307, NaN, NaN, -2.74403863202882e-79, -1.04424199569944e-246, 0), ext2 = c(Inf, NA, NaN), group = c(1.75786225347965e-216, 1.67027560625593e+257, 1.02045603176951e+246, -1.12301747075277e-60, 9.65543876357265e+182, -29844042312188312, 7.4387185930846e+273, 3.49263977798825e-95, -334715726.024495, 9.02390365196326e+57, -1.53702784593211e+137, -Inf, 65521792743.9259, 2.76347153597961e+265, 2.27575922542411e-40, 8.69773633565241e-236, -4.05594601126929e+99, 1.89599741794491e+158, 7.38403192527879e+224, -3.76309250188305e-14, -1.24076783423835e+60, -3.25300915720565e+186, -3.63006191982001e+176, -2.99313710992393e+252, -4.44154093802268e+235, Inf, 1.17527838638483e-200, 7.50551836455084e+39, -1.03455911478734e-175, 3.35329620984475e+222, -1.69052466905997e-255, 9.64758238915309e+60, 1.71322379922913e+87, 8.29406057372599e-292, -2.87012533016748e-142, 5.30090867908776e-165, -1.16747502386859e-29, -3.04002262315341e+36, -Inf, 8.44677155351684e-77, 2.10122004042899e-234, 31961015291701.1, -5.28025612623746e-298, -2.68009002745375e+126, -4.65759049112271e+32, -5.48469784542167e+163, 1.00724424173987e-104, -5.823618029728e+199, 1.16723860552168e-203, 2.53012412701285e-295, -4.85828170734635e+60, 4.82896886942412e+137, -3.9552090742657e+191, -4.39339467465306e-146, -3.73829600043603e+119, -9.78905753353007e-200, -5.37467075584645e+213, -1.14216665172958e+136, -1.73514428080142e+220, Inf, -2.99575304249265e-68, 6.18737492462666e-268, -3.78399775483006e-264, NA, 1.49522108022925e-127, -4.45880176852139e+166, 2.73877481212907e+293, -6.94662019330305e+77, 3.32235450890585e+297, 2.06954330522353e-167, 0), m = structure(c(2.60060822828426e-110, 189874381688022, 3.40431070817877e-292, 3.22066607976023e-65, 1.3756178470479e+205, 1.31263235732586e+171, 1.66929102173588e+38, 8.59982272272172e-252, 4.02067147395665e+57, 1.30206309033654e-292, 5.64666757521566e-25, 6.45349123154468e-194, 2.4185310316715e-303, 2.13932097282877e+260, 1.57109857390882e-289, 2.45813657871805e+99, 5.79844511303154e+38, 2.75263242870654e-197, 5.82827228555311e+145, 1.15873300267684e+123, 5.78042859534224e+256, 2.51515021474738e-155, 1.49070183053172e+75, 3.70184648071789e+189, 8.92907168322253e-79, 8.60511975554262e+187, 1.18800605145093e-81, 5.11472856571082e+112, 5.05167491558782e+275, 4.87369560222309e+100, 4.14588171277256e+158, 2.9488362211443e+256, 3.64372007552509e+178, 1.68252848932783e+273, 1.53194686481168e+126, 1.27611204866161e-306, 1.67317229331983e-118, 3.54735868564722e-267, 2.155663378811e-85, 5.88315865131982e+154 ), .Dim = c(10L, 4L)), v = c(1.45700878422105e-15, -2.38445862168461e-67, -165452964806820, -1.14548554911047e-28, -1.88401702259064e+88, 2.9765149322364e-172, 1.16673946419611e+263, -9.11527437069515e-198, -9.7747794515098e+221, -8.00921358618423e-119, 2.70645934353106e+261, 5.50162047731336e+29, Inf, -Inf, 3.01815356427231e-176, -2.01633925915545e+185, -9.94033901225015e+112, 1.22706576247433e+67, 4.95684040088839, -1.072066713801e+164, -4.27411411880046e-291, 1.08982449023104e+288, -5.92766296710787e+264, 2.26204616151408e-89, 4.03268910640597e-131, 3.28150958617163e-184, 2.16706122522573e-259, 3.13880227553605e-86, 1.24303435755515e-45, NaN, -5.49902992605563e-70, 5.87617758141817e-125, 8.36126989938755e-246, -1.59312916258733e-25, -3.87951703579448e+203, -1.2614148345713e+119, -4.02357522927586e+225, 7.70558553508972e+289, NA, 1.06157935129533e+52, 0)) result <- do.call(PanelCount:::matVecProdSumExt,testlist) str(result)