testlist <- list(BL = -2078712103L, h = -1.03164733159073e-67, k = -7.33763139710035e+231, x = c(-5.60040103648699e-192, -8.57825507211245e-261, Inf, -1.11207747284548e-164, -1.38385273920234e+163, 2.60091884663038e+278, -2.91956171284266e+231, 2.66511187696205e+57, -Inf, -5.32967649394207e-191, -3.41518875872552e+43, -4.24114016497156e-266, 1.41962279398476e+120, 2.11727983904019e+64, -1.13725999208142e-222, 1.38979331803997e-267, -4.66415869358999e-52, -4.76568797053623e-101, -Inf, NA, NA, -3.78655054451751e+286, 2.99913744554045e-13, -4.65882441398102e+229, -1.39453033003738e-229, 0)) result <- do.call(ffstream:::cpp_detectCUSUMMeanMultiple,testlist) str(result)