testlist <- list(n = -181776878L, x = c(-6.21076624142259e-88, -5.09546862084362e+171, 17713.0737779994, 1.49799489328221e+154, -3.07711613417834e-164, NA, 2169784049407270, -5.26551049303418e+220, -2.4491921752005e-127, 4.00972307678729e-112, -1347081931437196, 3.36426871767919e+162, -2.9931600701953e+243, -4.41826018167985e+106, -0.007745019111445, -17549450532572418, 2.73847523214435e-139, -1.00384869777485e+267, 22.198234063346, -7.52704598244008e+270, NA, -9.63155393979429e-252, -2.40954244879749e-228, -7.96300007790649e-228, 1.06056048539677e+51, 3.12358875762594e-146, -5.0813395463892e+167, -3.01140186820984e+48, NA, -9.39999015573523e-138, 1.014557026973e+133, 5.33016223871846e-92, -2.70547805635646e-257, -9.58595063463655e-150, -2.67154163856263e-24, -8.88353082132322e+269, 6.51294025360208e-166, 2.57134477888775e+85, -9.00778955000399e+146, -5.74802388574167e-32, 3.10487394815459e+75, -9.06792595176843e+116, 1.26356888975243e-175, -4.94293139116604e-278, -3.2251827239397e-147, -2.24055808925852e+116, 6.4090460788657e-288, -3.75828149655839e+255, 8.43399297827577e+98, -2.33897398872887e-71, -1.12823745753489e-154, -1.13106351796749e+111, 6.41693882627011e+154, -2.00799858794132e-161, -3.64289733589722e+27, -4.75774877189894e+258, -4.64527494422388e-197, -5.50254589540137e+271, -Inf, -7.67924305268233e-303, 5.82253637942064e-167, 9.02433723440446e+223, 1.50363821000426e+295, 1.18571422906776e-210, -2.73899786520685e-257, -2.7169912047478e+123, 1.66070848097097e-306, -3.38240604092171e+294, -2.71193631529137e-282, -1.16955487798194e+45, -5.22250964084892e-77, -3.28363002005813e+243, -4.64754616759175e+253, -9.47070725462383e+132, -1.89412235677398e+118, -1.8870213803655e-19, 7.55879357041567e-164, -1.18399276027913e-231, -4.6591886938266e+255, 5.99916365639387e-204, -1.10527078856616e-147, 2.69841554719197e+185, -7.87029554254338e-65, -2.43784047768312e+54, 0)) result <- do.call(QuantTools::sma,testlist) str(result)