testlist <- list(g = c(-2.18767384627434e+145, -1.62439871653312e+121, 1.81645730004351e+71,  4.06050073516375e-209, -6.64900078752499e+237, -7.84188995261843e+251,  -4.12070255741378e-83, -4.30063845845641e-196, -1.66945648288176e+155,  -4.16401961344651e-28, 2.8721589517477e-258, 1.31008104830718e+57,  -5.48491812888873e-278, -5.90025728525282e-183, -4.01543629170985e-33,  NaN, -2.49111368820511e-220, Inf, -2.94193163747051e+94, -1.67049588335456e+297,  -Inf, -Inf), group = c(1.02032073648977e-165, 1.68428981790668e-192,  -3.51028536467823e+110, Inf, -1.18925141712599e-231, NA, -3.9221158850895e-29,  -1.17562802797149e+300, -6.83074783339586e+56, -Inf, -Inf, 4.34336308398583e+178,  5.68921344492986e-44, 0), n = 1206483116L, theta = -1.08497393329553e-178,      w = c(-4.37607482109032e-26, 6.39684430542708e+143, -2.30925811874955e+262,      -1.91304827052707e-97, -1.56788821901521e+226, 4.16041444428326e+105,      4.48083524681857e+291, NA, -3.10882155684765e+52, -1.7452148688307e+237,      -2.16075578595984e+128, 3.35224781617961e+38, 5.25368290757271e+47,      -2.84845343824217e-96, 4.21294871934956e-275, 8.64816599151242e-247,      1.02540740868198e-193, -1.63021047829512e+222, 1.0586381935922e+248,      -5.98600137049529e+132, -2.31919893757011e-159, 4.26511222328356e+288,      NA, 5.08288200906084e-127, -2.55541041071758e+23, -1.43951633909721e-210,      -7.88455756796075e-227, 1.01143750427234e-112, 7.41158918557059e-186,      -1.53113258746421e-95, -6.59043800699862e+215, -1.52997364349531e-208,      9.8587883785291e-151, -1.69908222187672e-21, NA, -1.30488371339265e+148,      -1.42606716088179e-232, 4.14246464662905e+250, 2.19309413388713e+116,      2.49561537888675e+173, -1.08614784407774e+234, NaN, -7.52919542432676e+76,      -8.71505008771106e-151, 0), y = c(Inf, 4.18151939674415e+180,      -4.51191863296391e-54, -1.93867223487411e+34, 1.01911373304975e+114,      2.45156719941786e+110, -6.7353872438982e-183, 5.48530752224531e-257,      1.39467924687725e+129, 6.08209237476977e-210, NA, -5.64875650396801e-304,      1.22709408852888e+114, -5.86056082505547e-130, -Inf, 9.32169800066152e-31,      8.12107172859334e-288, 9.31500933633395e-208, -4.01770539558164e-97,      -2.08279577942017e+92, -1.08346402620261e-188, Inf, 9.37862584739779e+80,      -3.71570480554197e+241, -5.14113848276756e+304, -7.94513583635566e+113,      4.54999221651995e+224, -6.39840004810777e-172, -2.22169344958621e-117,      -2.47739846630569e+141, 3.08226040487894e-127, -5.21620457912519e+87,      80260199490920.8, 0))
result <- do.call(clogitboost:::score,testlist)
str(result)