testlist <- list(dim = -1053990400L, finalTime = -1.66667893622001e-49, n_iter = 77470436L, v0 = c(-9.77937136970318e+240, -6.91902272399548e+224, -1.16799430317206e+232, -Inf, NA, -Inf, 3.06886759116986e+143, 1.54020295006986e-307, -5.48275336426756e+103, NA, 0), variance = -2.43318023382663e-187, x0 = c(6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304, 5.22278042553461e+77, NaN, -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185, 8.2390922993911e+275, -2.80408356385423e+194, -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270, NaN, -4.49673024853768e-166, 1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297, 8.2390922993911e+275, 8.10981151245745e+266, 5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252, 5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54, -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151, 2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216, 8.2390922993911e+275 )) result <- do.call(RZigZag::ZigZagIIDGaussian,testlist) str(result)