testlist <- list(g = c(NaN, 0), group = c(3.86219612748188e-154, NaN, -Inf,  Inf, -1.78975077223056e-306, 4.46831320789613e-114, 7.68336118057991e+167,  2.86787351018587e-239, 1.21691593021231e+187, -8.45635520319497e+96,  Inf, 0), n = 745234048L, theta = 4.21678052508857e+30, w = c(Inf,  -272554713367497, -2.03883171298578e+196, -1.93395223205491e-105,  -4.87615463422396e+69, 6.33039727393659e+174, 9.36157082768837e-61,  1.12324495087089e-201, 9.27574552794708e-96, 2.30959781152682e+52,  1.1589876026989e+35, -1.75197379505244e-96, 4.69555662901454e+186,  1.47735433323879e+197, NA, -7.96527454206718e+278, 1.13241564008388e+61,  NA, NA, -3.17514397922624e-61, 0), y = c(2.51474579993576e-17,  -7.92454699319536e-221, -1.02284991969318e+23, -3.68338626506129e+153,  -7.21998254212103e+306, -44978846.4013363, 7.32636704590626e+231,  -2.85049784743426e+85, NA, -3.16047679377334e+39, -1.85497410519659e+279,  2.08373564317973e+85, NA, 3.38011110911309e+254, 4.45853391908152e-22,  -2.34952015221701e-26, -9.43554257056417e+42, 1.20557062686812e-89,  -4.79600455654308e-262, NA, 3.49933180945846e+223, 9.99465900108432e-179,  7.27487997673916e+130, 6.95367948377311e-138, -8.4725232836793e+271,  8.63430373260003e-208, -3.04012975841122e-50, 1.61307318553119e-61,  3.00350569386783e-37, 4.98195550979773e+20, 3.38822188298866e-198,  6.65496904580951e-258, -6.61395781371879e-136, 1.9725525739537e+236,  1.52617672572967e-74, 1.17437196550429e-258, 1.03798857477704e+249,  NA, -6.25609759547167e+104, 1.14007380305153e-280, -4.9310788902461e-249,  2.57851190251444e+293, 7.07142409534694e+295, 1.03615820428317e+242,  -3.96971829091171e+227, 1.9182571120884e+152, 1.20329311906244e-170,  -5.12595533868333e-206, -87423373249546896, 1.73046553500447e-58,  -6.55491735505745e+150, -9.26956689632147e-133, -1.46806800239145e-29,  9.36992936929525e-213, 0))
result <- do.call(clogitboost:::seconddev,testlist)
str(result)