testlist <- list(N = 1.81091588105484e+20, p = c(1.37402309490916e+52, -7.17333394165767e-64,  -7.17333394165767e-64, 2.27123725690344e-161, Inf, 1.24657898453147e-164,  -6.77880771648887e+209, 1.41810518414752e+222, -Inf), y = c(7.4645552924466e+40,  -1.03613576661198e+294, 3.23139436884442e+71, -2.47631685259591e-47,  2.87643593459297e+291, -1.22319033771525e-110, -1.00882430466679e+40,  -6.56719051973624e-165, 1.03742966670877e+142, 114291020159.863,  7.18541103627685e+154, -1.66338559452152e-192, 7.09986713696176e-261,  -4.94974169099522e+35, 9.01641453978258e+173, 1.01748564034001e-120,  1.91566793084851e+63, 6.24125177923439e+230, 6.78615830026132e+41,  Inf, 2.17127916145225e-96, 5.70072802575407e+246, 4.32594886437622e-114,  6.5409132068737e-170, 1.18272388646542e-229, -237271.450095448,  -9.88320306903152e+143, 2.09062395555892e+93, -6.16706620911412e-245,  1.41081868530524e-38, -4.21869294987374e-213, 3.97992818439428e+216,  -4.59704249141778e+303, 14705924682.1415, 1.17701746829371e-293,  2.28176679231077e+32, -3.87600581304598e+170, 2.82040381114537e+180,  -5.38250822295845e+88, Inf, 2.07476251264621e+192, 3.90358237658748e-293,  3.16387603039489e-101, -2.08446994009194e-12, 1.62116410996718e-148,  3.95235663331825e+31, 2.23663802608291e-11, 4.84406095397247e+208,  -5.36360474739838e-36, 1.04075099958739e-215, 1.4267291986002e-157,  Inf, -2.0134272711925e+126, -3.73294607149308e-168, 8.93790211041004e+79,  -9.36989251009914e+236, 2.18976193004736e+269, -6.84765515113393e+190,  1.37903125501833e+29, -7.41601024775325e-299, -4.92719612632373e+85,  -7.15898551219548e-237, 2.02026554880705e-196, -1.8878011545063e+291,  3.41390340649521e-196, NA, 1.10707613512872e-170, -9.45462467177101e-120,  -5.92824231818674e-68, 4.81847343836614e-197, 0))
result <- do.call(nmixgof:::pbinsumRow,testlist)
str(result)