testlist <- list(group = c(-3.65613173273876e-143, -3.8494836110906e+26,  -1.51170712266254e-273, 1.90979211788901e-34, 6.17309916602988e+124,  -1.74230274010908e-174, 7.2651740548498e-127, -1.68970066131613e-220,  NaN, -1.41035218854907e+144, 7.22652110169885e-10, -1.34033182560599e-112,  2.34532885670232e-195, -4.27666269378524e+73, 4.86822031812459e-10,  -2.55793696589288e+155, 2.54221983261426e-218, -4.83786297704951e-242,  Inf, NaN, 2.15744304035645e+154, -1.27910284123429e+307, -2.3137890546136e+263,  1.10169506171091e+83, -0.000184592882405652, -9.60926910151263e-301,  4.61970199624696e-78, 1.34651258118577e+209, 2.12293791870263e+135,  4.06026242617567e-168, -1.58779975583736e-69, 6.30200427051577e+20,  -9.56356766397204e-21, -4.82561314501683e+34, NaN, 1.99615638991557e-35,  0), v = c(1.23299226858437e+141, -1.7819066216607e+19, -7.45092878884443e-208,  3.03477262478065e-290, -4.778068348974e+132, -5.19527541762587e-209,  -1.02889445962339e+235, 7.23253745502443e-241, 2.76278199851249e+161,  8.8841078903279e-14, -6.08277066077416e-189, 1.01805418312906e-168,  4.45459400291169e-219, -1.4558986718425e-223, -6.75582547512666e-16,  -9.41327366450241e-71, 3.36106574442216e-299, Inf, 7.02226043919426e+173,  -1.85672032268273e-231, -1.00678351511783e+142, 2.75409180799816e-205,  NaN, 2.76241004134098e+295, 0.54103375207872, -1.1737331142767e-100,  3.03754728877256e-163, -2.0079986509902e+287, -4.85700911512798e+256,  9.98684740025765e+244, -1.04635301832478e+231, -8.130826830024e-127,  -2.9008891463013e-208, -3.50158094616043e+270, 2.70468905211102e+194,  5.89670434676752e-271, -Inf, Inf, -3.09958870231526e-265, -4.02793727221036e+83,  -2.44805534959181e-161, 1.69002142208379e-67, 1.05432154903553e-219,  -2.15266517434643e-58, -0.00275331323041681, -9.2820078985978e+81,  NaN, -1.36529596017882e+216, 1.46007361285774e+244, 2.05216919143261e-261,  0))
result <- do.call(PanelCount:::groupProd,testlist)
str(result)