testlist <- list(k = 6.93831040737321e+202, m = 1237966382L, n = -274972418L,      x = c(5.31858482509974e-246, -1.11607275093941e-215, 1.63886000131611e+161,      -5.58747975267714e-128, -1.70092094585015e-91, 1.49263829827101e-84,      4.48281376661353e+101, -4.40602654325249e+210, 3.75124338050086e+238,      -9.73230976179558e+142, -2.43976987927921e+269, -3.61535031308237e+254,      -2.82394572606077e-145, 2.14883622568882e+77, 2.69966396727641e-193,      2.93719391407397e-218, 7.98137574300184e+47, 4.38222517080374e-95,      -6.14656583268165e-05, 1.60447705389787e-35, -1.53938602709382e-280,      -1.7671398608822e-245, 1.99728240248868e+225, 6.62787679777747e+219,      -1.84080761482095e-66, -5.19143822351654e+49, -3.20662388938481e+264,      -1.03015043994061e-25, -3.37120638257128e-188, 7.7734283008345e+236,      1.14901865343255e-247, -2.78453443812357e+29, -2.094781334141e+207,      3.26389357185796e-84, -1.56557977952699e+56, -1.16609526386429e+208,      2.44405538922109e-222, -1268.63124551127, -1.66358905841155e-307,      3.31402587874502e-49, -1.75523720495618e+292, -3.32877181001838e+229,      -1.22771223263944e-111, -4.35982311421884e+292, 4.17744233851014e+130,      -4.18235480062728e+65, -1.28260608980729e-269, -6.40459590163335e+94,      3.99595494281004e-05, -4.39415566238226e-142, -24317502.942818,      -6.16444224779098e-232, 3.28688605524719e-127, 1.42083765148982e+122,      7.99772738163277e+264, 4.64289478440514e+280, -7.10544818438429e+87,      -1.9800078155255e+190, -Inf, 2.18707386599505e+256, -64837.0659771244,      -6.16444224779098e-232, -2.71751001012167e-33, -3.44888313044639e-243,      5.07408307483738e+303, 2.47422308776536e-142, NA, 9.73281853997991e-125,      2.98843891529359e+254, 7.13862576859501e+21, -5.63737377513473e+213,      4.04628482483882e-56, 6.42042486308794e+209, 7.71570598516774e-184,      -3.3272910049453e-255, -8.3194629602624e+303, -1.76592023776525e-141,      4.06048354342627e-308, -5.84661983448766e+224, -3.90370887640959e+35,      -Inf, 3.58128015475706e+221, 5.77644400558464e+63, 2.1668904579176e-265,      0))
result <- do.call(QuantTools::roll_sd_filter,testlist)
str(result)