testlist <- list(FX_predict = c(-4.48693837990306e+91, 6.96909944544129e+146,  -1.22632382225098e-169, 7.38424442346927e+102, -2.39103730967046e-173,  1.50358269295745e-98, -1.39864735239114e+206, -3.55788228619885e-57,  2.56188437987478e-278, 1.10881532313397e-41, 1.41426599523983e-157,  -115579.955078524, -3.96965809207707e-21, -249276.355466798,  4.68892868662101e+242, -1.9030250841639e-118, -14691701.5414961,  -1.07078197383002e-40, 1.62358362944917e+207, 4.72419283902863e-228,  4.79997554313187e-217, 1.42348988396141e+78, -1.6371214380449e+117,  -9.08286376480773e-107, 2.45161596461525e+245, -1.94992510522865e+126,  8.25306832203025e-62, -4.21454500062551e-226, -3.16154398122101e-198,  -2.68447201489116e+281, 5.14963865886893e+238, 2.16873923090758e-129,  -2.36578823829062e+225, 3.11993702049667e+25, 2.56876579554306e-244,  1.82866311529022e+247, -1.91575703818134e+117, 1.41023098687193e+195,  -2.0457189998697e-76, 1.34636958470353e+129, 1.05166477156311e-191,  -1.22784914714579e-170, -1.20860657461796e-137, 3.05825342999664e+140,  -2.90069835439382e-300, 1.19552333837868e+288, 3.62024596642298e+215,  3.58923182325456e+81, 7.18064553341412e-71, -4.12628977745897e+197,  1.65035093789913e-84, 9.63302351704592e-242, 2.05760869378141e+73,  2.87445831805421e-102, -3.11320883908843e-23, -9.75597506948204e-51,  3.22680631066893e-92, 1.35836801378482e+299, -3.62110877003773e-116,  -4.459725495148e-275, -5.36605883665101e+29, -5.96950968352927e+249,  -2.22379705198855e+259, -2.14817489575178e+79, 2.35805584364471e+270,  8.13523541077464e+169, -6.07250452057037e+231, 2.34778300490486e+61,  1.19842735874082e+125, 3.81410703442645e-144, 6.76818965402578e-84,  1.29200843226076e+286, -1.99984766651289e+259, 1.17203515184594e+168,  -3.20756922482936e+215, -2.97470378340486e-210, -7.54508944139137e-151,  -2.11896372689139e+196), FX_train = c(-4.65964884369147e+48,  -2.89546018569714e+293, -1.06305578296019e-80, -1.30127318958429e+303,  8.5220282987349e-173, -1.7837864519252e+117, 8.74197471575601e-11,  -1.81159209160309e+241, -8.37568318882354e-193, -3.10500434334229e-44,  3.63466390297806e+55, 1.02898765464505e-113, -3.62271414759885e-43,  -9.37610493326795e+29, 3.3104898092482e-86, 4.04108393141693e-05,  47037265763.5606, -7.1017886711431e+124, 6.40302598496721e-170,  -1.54043107555478e-31, 2.12906259383071e-151, 6.46935989252216e-190,  -25356168006047652, 7.07925828984586e+204, 3.63997221503054e-134,  3.3757125106534e+193, 1.88416282645203e+169, -6.39468301841592e-198,  4.30780150841298e-235, -1.28327049171883e+64, 7.32983221202172e-151,  -1.47559314837127e-74, -3.52553514798294e-242, 5.32899448695833e-179,  -4.22572909680903e-258, 9.45304518781788e+179, -1.47611421367456e-283,  -49703939167280087040, -2.18036631104119e+151, -1.11793900573624e-288,  7.92344434976047e-219, 2.81501725202838e+231, -1.32864415518915e-163,  1.58452789264731e+68, -1.17582717654621e-163, -1.72376050947722e-175,  3.78768033497385e-302), lambda = -5.61736755072472e+103, times = c(-3.48837154300591e-09,  -1.5015306445219e+251, 1.57867353826414e-307, -7.00761512539766e-50,  -6.99565969036477e-60, 2.58197152657597e-253, -2.63239445434045e-196,  9.32252129454598e-200, 1.66711597576406e-146, 2.48670270489439e+34,  4.3931873228552e-139, -1.36007385895426e+107, 2.86378878410093e-96,  3.02277514595584e-165, 1.34862341910678e-57, 5.86821976171958e+165,  -4.9114353478362e+258, -5.33604860303003e+203, -6.88846063823225e+106,  -3.43788037282818e-268, 8.94805234466781e+170, -2.04429918857198e-36,  -6.03987276349896e-114, 2.6072267553008e+99, -6.29778110287011e-66,  3.91790302280202e+115, 3.92709790932095e+276, -3.86193427285116e+221,  3.59913256350067e-219, -3.45053132888275e+232, -6.25833835767484e-147,  -2.16548722951424e+140, -8.58505054174815e-232, 99582634998012.8,  -3.71023707051442e-280, 1740895450483202, 1.10419764355453e+143,  3.36904477212784e+294, 1.11438778586174e+215, -2.48153615512573e-22,  3.10688610123256e-226, 1.11179156437827e-242, 1.54020295006986e-307,  1.41399591567299e-40), truth = structure(c(1.05414702709612e-68,  1.86446765666332e-211, 449058805123160512, 2.72550962279315e-214,  6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24 ), .Dim = c(1L, 7L)), unique_times = c(-Inf, -2.01993546991465e+299,  -9.49379129257654e-217, -Inf, NaN))
result <- do.call(survivalmodels:::C_Akritas,testlist)
str(result)