testlist <- list(alphain = -6.85579530296692e+46, Gin = c(-1.00774764177237e+145,  -2.83598010619834e-276, 4.01496438529672e+268, 1.82484383505325e-234,  4.219699299991e-244, -3.19770891884405e+236, 2.73044951363141e-247,  3.19808070081242e-73, -4.0688295614215e-189, 2.32702944473337e-289,  -5.72105808378008e+34, -5.6606319476668e+201, 2.16518804016258e-63,  -5.88530836526193e-231, 3.37441795703111e-71, -2.49043465255467e+31,  1.17166665437663e+145, -3.85538091806849e-35, -8.5263789059432e+181,  5.9697034170321e+147, -1.35587379863045e+58, 8.45087137841322e-107,  1.19986273285921e-123, -1.78748448305182e-17, -4.5122621566395e-237,  -4.73157632313846e+246, 1.28758962836763e-170, -1.88049694853766e-211,  -7.042946083283e+71, 5.04994082821538e-241, 1.14047035109809e-168,  0.0771471335467732, 3.42375801161248, -9.23043095499859e-269,  -8.62865135767622e+218, 6.32250124933002e-304, -7.65540903436216e+169,  -4.01456660098785e+74, 6.12701304358478e+44, 8.81993329196799e-159,  -20581301690921496, 7.7448597784873e-205, -4.17614460677314e-252,  4.89458127277558e+48, 2.91904548526874e-36, 2.63357942251392e+50,  1.38156585841185e+62, 4.16870355801138e+242, -2.69955433276538e-241,  -1.03120963804519e-122, 8.08423722726781e-180, -3.48951820319199e-188,  1.01310702906901e-216, 2.99784203993389e+26, 1.11589541089141e+204,  1.98884927026495e+88, 3.20223484748434e+45, 1.86667991254178e-157,  4.33386908680993e-268, -3.29681008013874e-134, -3.59323677883725e+211,  1.11541602231568e+58, -1.76695052512478e+261, 7.74220690183453e+217,  -6.46844269436053e-265, 7.99288839716608e-186, -8.87518557267739e-99,  -8.18649225903281e-128, 3.30031715366775e-75, -1.22517226481018e+249,  -4.32843994996236e-203, -1.40871086080642e+283, 7.80092808233242e+194 ), scorein = 1053554048L, Sin = structure(c(3.60908643865453e+224,  1.11742128101669e+83, 1.97870122171185e+143, NaN, 9.37480792170664e+280,  3.07504141416437e-136, 1.01645313737868e-124, 1.00679150745081e-73,  1.27047634996911e-62, 2.13409614918679e-145, 2.01768927817267e+47,  NaN, 4.713762584588e-48, 1.7506159598139e-260, 4.13272931804741e+261,  7.50347923086546e-71, NaN, 2.90402077461892e-286, 3.56215199780015e-230,  1.43677827629537e-133, 7.46114516421967e-258, 5.0141334820982e+184,  NaN, 29072.6257709098, 1.41003229091807e-86, 1.93643921836204e+180,  1.99326012973524e-62, 1.39815628510302e-16), .Dim = c(4L, 7L)),      xin = structure(c(1.91920560976224e-251, 1.19983215734501e-56,      3.97230794012325e-282, 9.8809790802306e+146, 1.14404842490201e+49,      2.43474269728453e+92, 1.3877521109169e+306, 1.35413622853913e+115,      7.68617398266382e+109, 9.15706247400523e+63, 7.08913618501716e+37,      1.96735162696382e-42, 6.45490835685765e-158, 2.35456609220815e-241,      6.26858003024816e+90, 1.97067341964444e-116, 1.73408606167916e-76,      1.07094280555022e-152, 2.31168622963039e-123, 4.74814912605682e+224,      2.23300712691874e-05, 6.38351250585375e-30, 7.88751888958809e+154,      1.64627054876331e-39, 4.60144321334404e-42, 7.90001325707782e+259,      2.7444644769296e-90, 2.58189658029914e+126, 1.56245155619712e+145,      2.52199076026508e+208, 1.11352244738495e-44, 3.3062300252042e-211,      3.32074812908401e-294, 8.5229080219038e-300, 1.20500293149312e-77,      1.19607444285061e+154, 6.9658234481955e+280, 6.00419112388813e-293,      7.19069106678401e+258, 117998678470259, 1.65138968525956e+122,      2.33680557214836e+99, 5.02357428992953e+207, 1.59791342550672e-256,      7.32104516887178e+28, 3.34324391896227e-161, 5.55107489256472e-275,      24037725099831784), .Dim = c(6L, 8L)), xsin = structure(c(1.42320728643954e+294,      6.59005957077002e+161), .Dim = 1:2), yin = c(-1.48913015309838e+39,      2.63725453740933e+261, 4.51945682641686e+163, -7.62766352772688e-53,      2.09617024723214e+257, -4.68831427091371e-154, 1.11903477574716e+232,      3.26286409658457e-84, 3.96692931002303e-30, 1.30945164738812e+193,      2.81167291417672e+284, 7.81344866205955e-69, 8.06437782716787e-68,      -2.43432862423038e-282, -8.66082579829582e-93, -4.44116795166925e-236,      8.79838796864221e-85, 1.18757307056025e+27, -1.93958723679818e+293,      -1.4797859307384e+74, 1.0829478318779e-20, 3.18894353286941e-291,      1.89411227126564e+44, -3.25228381230693e-308, 4.16222053993285e+189,      -3.47187673951786e+104, -9.61683738769097e+161, 9.71804279585044e-239,      -Inf, 2.17299108064979e+107, 2.26895126666313e+150, -8.40097381850818e+307,      1.13760189546125e+200, -2.04311773710004e-81, -5.96231150102709e+47,      -3.45018564135406e-87, 1.87350069967456e-225, 1.78742032507512e+27,      1.5457560660078e-223, 3.9114491893228e-103, 4.75074045149166e+44,      2.03194847659285e-141, -2.91324326516138e+212, 1.20155833324313e+91,      -2.30373608285758e-256, 7.8916857411679e-125, -1.33791239970731e+107,      -1.0992233037189e-83, -8.48368816965793e-131, -3.27398714521823e+63,      -3.38410933449517e-93, -4.03376812105127e+85, NaN, -6.783456706827e+233,      NA, 6.88318444663651e+174, -2.75811974752553e-154, 1.66811523321678e-190,      -1225456.09007819, -6.72853033935425e+227, -1.29886619450838e-120,      3.20339905305954e+244, -1.21482693215067e+115, 2.43581014863413e-09,      -1.64267229240635e+77, 1.69376167176247e-180, -2.96113780540984e+227,      8.68343785112204e-195, 1.0935372876868e-207, 8.82812941134646e-118,      1.0935372876868e-207, 1.35097132339656e+180, 0))
result <- do.call(ProbReco:::score,testlist)
str(result)