testlist <- list(l = -1864686112L, r = 2097332025L, x = c(-4.25672875111772e-217, 2.89242325598481e-241, -2.48789178423126e-77, -2.72592432316806e-20, -6.27923973342591e-26, 7.5684991430871e-165, -2.78045845645992e-303, 3.83200133383229e-302, 3.54128278929285e-101, 9.04818965142033e+258, 1.1277583319866e-292, 6.45944903230899e+214, 38323256162.8296, -6.10915769488382e-19, 13563987.2047165, -3.70944071768787e+48, 1.53121753552782e+254, -2.97834844278717e+56, -6.52154590610857e-89, NA, 1.92601817181914e-187, -6.79372429500716e+227, -3.53034418662314e-79, 2.90311669606133e+37, 2.57562617053257e-307, -1.51577702620959e+135, -9.2787509430365e-223, 1.72546655220853e-174, 3.30836343882059e+254, 7.42623544706528e-291, 7.59051371735124e+147, -5.16328963066557e-71, -Inf, -4.58977794642962e+276, -9.72267481850821e-37, -9.55283680829247e+135, 1.1624886103293e+102, -6.8786541348262e-100, -4.29513713838729e+288, 1.47555920743093e-300, 1.42567753078639e-277, -4.64504312977534e+103, 2.63392473034103e-269, 2.14459419819931e+307, 261879003537389408, -5.67534051659218e+78, NaN, 1.27233925545521e+51, 7.85864743790225e+266, -7.53468970735495e-170, -2.24749768363372e+59, -3.13648684511624e+254, 1.25105982460038e+40, -2.29909956501745e+88, -4.55725279661132e+114, -1.14926234107588e-283, 7.84475608127592e+158, 1.18329643996809e+24, 4.43872158391985e-48, 3.40028727498519e-82, -5.53544290787635e-136, -1.52054559607763e-238, 1.68015403913841e-14, 8.21386492240252e-275, -1.72036481445173e-233, 6.09425911392193e-299, Inf, -3.70202978633614e-79, -2.80323185369962e-10, 3.06146233901581e+162, -6.16471362135293e+235, -1.84577662155676e-243, 4.05316834212165e-219, 4.6001637121248e-235, 2.2319284520032e-85, 2.52349582728013e+269, 8.39667033453843e+179, 4.04263443965333e+143, -3.48561436763931e+208, -3.51265797298707e-185, -3.11695831265341e-265, 1.79037550035968e-299, -1.72731381306822e+168, NA, 1.99740035731794e-284, 0)) result <- do.call(mosum:::mean_help,testlist) str(result)