testlist <- list(lag = -514392931L, x = c(-9.04061576999581e-36, -3.38066901876528e-116,  -1.18981885752029e-60, 5.28265163563649e+82, -1.73718692148679e-47,  -4.41449898376228e+190, -1.91160684653822e-281, 1.66276403294949e+298,  -1.08138321075026e-08, 4.16724130777796e+301, -2.53909694743931e-186,  2.16867510089301e-163, 1.06402756585891e-114, -2.39279061585982e-89,  NA, 2.30780256688788e+173, -9.1325701254998e-104, 2.46826528365396e+143,  -2.44730611050179e+170, -6.60320994171445e+155, 2.10055968025101e+219,  -3.31831638292187e-158, 3.95641773525636e-306, 2.96600882292851e-217,  5.25522493293172e-67, 1.29036159815955e-55, -7.23315231720665e+192,  1.48213359730185e+200, 5.69201808786817e-56, -3.92953390949481e+168,  -7.10778278397977e-31, -9.9465068192012e+159, -2.57227418842166e-198,  -1.08940495338983e+43, 14541139668291311616, -9.58759661501261e-66,  2.33221797520707e+114, 1.61281464983109e+81, 3.26320278924205e+278,  5.75536602530557e+153, -3.66392757309059e+176, 7.2200767072728e-233,  3.59598786008161e-178, -6.41100520982935e-124, 3.64460787039137e-160,  5.60053245511142e+277, -4.26280070085242e-264, 5.99912826018798e-282,  3.27787504699178e+124, 1.45532195604797e-176, 9.57087290324165e-301,  -Inf, -7.18093475469201e+270, 3.07697488683164e-81, 3.04735669567642e-296,  -Inf, -5.34259657621137e+257, -9.60844673615978e-205, -6.68755795869174e+162,  -1.79410325528543e+96, 6.57067966954447e-99, -2.65700872088791e-133,  NA, -2.98044975819387e-62, 1.63040245215673e+75, 108723.958528625,  -1.69012484094837e+303, 8.66870517132044e-219, 2.64686514874459e-22,  1.4054059959061e-21, -29855543594489748, -Inf, -3.66840182497123e-119,  3.59822478251256e+128, -3.22299566454653e+45, -9.29991026672526e+86,  2.67669874805349e-98, -2.73551709076632e-241, 0))
result <- do.call(stocks::pchanges,testlist)
str(result)