testlist <- list(data_lta = c(-2.15942835156311e+63, 6.39350595247969e-214,  4.3014900825468e+142, -2.9895156365067e+238, -1.6992569298567e+108,  1.04159112113714e+245, 6.96779681073822e-128, -1.77162479136019e-121,  -2.44257506378685e+253, -2.10377455979693e+112, -4.91866172571078e+47,  5.11161581485271e+233, -1.1738940978731e+80, 4.34565099334872e-35,  -1.108209368994e+104, 2.85402803744657e+100, -3.07879196664834e-87,  3.40367360234868e-45, -13365964.6549812, -3.72890041630827e+240,  6.8974709507084e-236, 4.60676217424445e+194, -1.58178360302451e-265,  -4.31476977197786e+36, 2.59078454099171e+150, -1.83666310319019e+61,  4.82578139063281e+291, 2.47102134917005e+95, 3.2446820017809e+117,  -3.49924580044007e+130, -7.13639897628043e+300, 5.7550492699378e+114,  4.44871840597734e-235, -8.79774932540196e+274, 1.76249399167493e-268,  -1.36252498349504e-129, -5.04891707559983e-216, 3.72447076579135e-35,  -2.22956448155903e-59, -1.07810796939785e+120, -5.25366003539374e+288,  -1.88287811238678e+245, -2.11983072956763e-251, 2.38843767077305e+120,  -1.69843976265196e+276, -1.17527004379181e+171, 8.82883080892573e-74,  7.82483343175183e-136, NaN, 9.26223147829915e+25, -Inf, -1.23354604926314e-149,  -2.17452853631573e+260, NA, Inf, 4.70739224210087e+271, Inf,  4.68615273015606e-208, -1.05536307149833e+297, -1.63480192720827e+133,  2.57561866244119e-300, -3.32539593612831e+293, -6.25722160324619e-139,  5.05492459204474e+75, -6.15163525824925e+102, 2.69594461469307e-75,  3.10845914614826e-155, 3.61309485522618e-126, 1.17989085968039e-73,  -1.14652930543857e+167, 6.2412343841947e+112, -5.01501875280041e+51,  1.02689977787261e+300, -0.168395625396222, 2.30886319538538e+167,  7.70865123754157e+116, 1.09644281110193e+231, -8.82795269061054e+299,  1.05221662734866e-206, 1.24849545205574e+31, 0), data_sta = c(-1.80114146093275e-201,  NA, -7.21785701883327e-111, -2.31131205819686e-246, Inf, -3.19878081932981e-148,  -2.7305685611689e-99, Inf, -1.017576654123e+169, 1.47839138077263e-295,  4.71169781965057e+231, 1.67242290488764e-169, 9.05740748186254e-300,  1.3106906442114e+264, 2.14875925539373e-235, NaN, -7.15488424835214e+104,  8.80291856892823e+234, 1.21137836677878e-223, 8.34979577335938e-97,  -3.43544309412797e+137, -6505499.62670131, 2.81656739004034e-131,  -5.21553437981646e-90, 0), event_length = 924969412L, off = 2.08958927641216e-187,      on = -8.11375863997817e-128)
result <- do.call(eseis:::stalta_event_freeze,testlist)
str(result)