testlist <- list(paa_num = -661550631L, ts = c(1.55298861642987e-199, -2.66310365992581e+220,  -4.09322539914548e-210, 4.35059656060542e-93, 2.76484766064249e+88,  -1954915265.74296, -6.45138218198909e-09, -1.58699594805429e-140,  -5.27106326531068e-280, 0.380097172653715, 2.35909933514983e-148,  9.55998699359042e+207, -2.17611014257301e+25, 6.41459341885132e-125,  -5.16294168523044e+191, 2.05556806575884e-53, 2.46878069195875e+223,  -2.6070483918465e-73, 3.89456366031005e-60, -1.65202358533076e+242,  -4.15048408650078e+189, -5.46724718439878e-147, -2.36058560898284e-271,  1.12708135969907e-157, NA, 4.81404444459082e-238, -Inf, -3.97590303271509e-283,  -9.32198785764022e-296, 3.04925770754761e-43, NaN, 2.48388599738783e-200,  Inf, -2.57719869219224e-17, Inf, -1.98735475952688e-98, -2.05529266287865e-203,  -1.45448111985294e-205, -3.83222022277551e+111, -1.92725396130777e+114,  -5.23252788711868e-275, 1.19132948508193e-206, -2.13192896790934e+32,  -1.77296852428206e+194, -8.79468623210464e+86, -1.26352575220423e-176,  -1.21327496140605e-51, -6.94007878298412e-159, 0))
result <- do.call(jmotif::paa,testlist)
str(result)