testlist <- list(win = -590785267L, x = c(-3.98783647744689e-237, -3.39809452744304e+60,  1.52650647870456e+102, -1853784851509747712, -8.38046079290891e-136,  3.42051513681318e-226, -3.52190252035932e-267, 1.3524325869661e-173,  NaN, 2.45817383611519e-29, 2.01368326124686e+66, 4.09726623784209e-17,  1.09790431311495e+266, 4.46632680444171e-151, 0.0273374215637932,  5.10092330334338e-186, NaN, 1.51093360042468e-282, 4.36262777205173e+240,  -1.20515926686955e+193, NA, -25853732841946732, -9.78011314613211e-40,  1.18629065115084e-137, -53362000431036.5, -3.45259113413424e+264,  4.35009977445431e+199, -9.33579967151388e+199, -9.45863437952104e-163,  -2.47576544729234e+129, 6.97338961734994e-276, -4.11420208323763e-46,  -1.4866130383992e-09, 3.78540130640553e-41, -2.40800378336836e+168,  -3.09187690128403e-283, -1.95809584618124e+274, 7.38073830354292e+156,  -1980091832698705, 1.83189118645565e-31, -1.44825313266165e+208,  2.35425714114247e+30, -5.30347475448271e+294, 3.0489811096863e-95,  -5.07274423881796e-231, -9.46003095408317e+166, -6.90562890326994e+191,  -9.93575734053288e-169, 2.45967484058482e-43, 2.95890237039541e+102,  -9.46589706031555e-117, -1.33282857793856e-308, 2.86081672029879e-226,  5.91813561400595e-284, 4.69807515134398e-176, -7.03140189984862e-153,  3.67897151787812e-206, 3.41652680437922e+82, 2.84575997684483e-128,  -3.05581110932509e+265, 5.52886971486024e+256, 1.23511788316906e+153,  1.82218072317521e+210, -1.75751817550653e-199, 2.88977937923316e+222,  -2.28846606622583e+104, -1.26681525262e-137, -4.40474278331313e-20,  -1.08621912484439e-21, 1.43122076776563e+189, -598042716647228,  1.85032398451309e-85, -Inf, 1.03269084965343e+201, -3.35672112506435e-301,  9.72008259396427e+65, 5.68633712139113e-83, 3.39158766114315e-224,  1.36421865675825e-58, 0))
result <- do.call(amt:::rolling_mean,testlist)
str(result)