testlist <- list(BL = -1916776260L, L = 4.04784724452429e-271, r = -5.4724361769893e-186,      x = c(-2.07086853582043e+206, -5.6854838134819e+55, -10915166708.0142,      0.684132822224339, -4.39750725183906e-99, -Inf, 1.46685608892449e+167,      4.06186109297465e+162, -1.94787158929895e-168, Inf, 2.08518506453346e-280,      2.00653954117128e+150, 2.27165509298396e+83, Inf, -4.23435229249677e+288,      7.66182162459997e-104, -1.75290849565666e+100, 37676513.7524311,      -9.52567911479991e+88, 1.54663207089642e-73, 0.980424453734367,      6.98185192040422e+273, 1.22211109712603e+74, -4.58545712159588e-179,      1.05444899120311e-08, -3.48491094571491e-140, -2.98962151069442e-89,      -6.32388737673342e-77, 1.22794304344956e-236, NA, -3.029630306359e+184,      -2.4330400524842e-24, 1.95361826770364e+62, 1.52580486365453e+150,      -5.77528619766709e-142, -2.89041953965994e+185, 0))
result <- do.call(ffstream:::cpp_detectEWMAMeanMultiple,testlist)
str(result)