testlist <- list(window = -1609156054L, x = c(-6.31179975330678e+130, -0.0154888780201685,  1.40255166861876e+233, 5.83177810610735e-235, -1.83746597720275e+55,  2.05676320929364e-27, -6.51846196712186e-290, -3.02174508708381e+153,  -9.75017671961404e-89, -4.040783368266e-302, 3.21356497179757e+190,  -8.37323741828921e+120, -1.55173170133609e+183, 8.3603654873155e-255,  1.53477173459475e-102, 8.60407766466614e+304, Inf, 3.54883182286176e-154,  2.25831383080438e-167, -4.58738484140034e+123, 2.06767034029488e-76,  NaN, -1.30246689834692e-245, 1.09763724648749e-215, 3.39653648484416e-111,  -4.67697747479272e+196, 4.5626623831831e+187, 8.45664626001125e+298,  -7.93047832514729e+138, 5.20260069784771e+115, 6.71839227173726e+157,  8.86867245854137e-143, -2.61235943623872e-194, -3.86823428468865e-234,  -7.70675631148619e+118, -1.42231762327872e-130, 1.31367821671898e-252,  NaN, -5.69833230205286e-71, 1.55073083269514e+154, 7.38094399462581e-186,  1.46202160759214e-190, 1.65272830307313e+97, 2.30188264175095e+163,  -1.37502521802955e-116, 2.45465410342608e+26, 2.55786730811376e-236,  4.84696768775866e+43, 2.09478192129277e-74, 1.09020145302693e+88,  Inf, -1.6119652472539e-259, -1.16143589266171e-14, 3.9650351631429e+182,  -3.83434169042019e-228, 2.71450057705867e-269, 3.39150783005123e+298,  1.05676669823027e+26, Inf, 5.14354495411895e+21, -5.96105863072587e-32,  3.9400034149909e-286, 5.33982409375763e-284, -1.3084184369282e+212,  -1.86695524832473e-81, 2.27484419798094e+251, 0))
result <- do.call(accelerometry:::blocksums_n_max,testlist)
str(result)