testlist <- list(nTeams = 326564281L, teamA = structure(c(156.239480502656, 4.09312671255326e-190, 1.50782817043972e+156, 3.86714308176021e-132, 9.05953676693192e+263, 315.197660475391, 9.02784301653217e+97, 2.000900890852e-202, 5.48910606063961e+71, 4.3783470254587e+175, 8.67784997817019e+237, 2.40436941964534e+187, 1.22849737774297e-284, 53033430088910487552, 7.46476411490754e-56, 3.50142333452469e-279, 4.14583933980202e-207, 2.81605632700111e-168, 1.0419895764728e+234, 1.65119710311421e-167, 3.08098979811584e-37, 8.58457394315084e-200, 7.70357133424141e-264, 5.56176412898788e-172, 8.8757758931406e-75, 3.26907598545528e-298, 4.04055052678789e+34, 1.53352587612782e-49, 5.96019887888826e+121, 1.54477333812334e-275, 4.90960080611232e+81, 2.24541576981577e+300, 1.07087442450951e+72, 3.33572279710254e+279, 6.58512259286819e-144, 3.40235306170502e+246, 2.84214920157746e-109, 2.4609716900359e+195, 2.27637821870708e-120, 2.9827583696455e-199 ), .Dim = c(5L, 8L)), teamB = structure(c(NaN, 4.0030679819201e+139, 1.99029604644981e-179, 1.5417920448047e-308, 6.97092576385814e-31, 2.81501725202838e+231, 2.15280254593935e-135, NaN, Inf, NA, 2.68604846169685e+69, 6.48116856435333e+243), .Dim = 4:3), weights = c(-5.11930237065884e-245, Inf, Inf, 2.26049777874292e-137, 1.03430723241526e-19, -3.02926915378927e+231, 2.48947035541347e-53, 1.03430723241526e-19, -1.10940102663492e+247, NaN, 0), weightsA = c(7.93549018518072e-67, -1.56904429473553e-06, -4.51339867130122e-71, -1.37339866931779e+162, -1.92924423519513e-299, 9.60971142229059e-207, 1.61135489440036e+23, 8.59320490538824e+240, -3.13105276077444e+129, -1.55626135480187e+125, -1.69345675165934e+72, -3.72726049420217e+110, 2.44962578801496e+196, 1.26273368274189e+275, 1.21110423237226e+291, -3.61009057836982e-292, 1.38479849806617e+55, -2.10570181709485e-116, 4.72677924666744e-137, 0.0041860451270603, -1.44726810812284e+210, 5.90832415503518e-156, 2.48028769695567e+128, 1.81977326957772e-91, 8.72868732528511e-105, 1.02592543161017e+62, Inf, 1.04186461758253e-08, -8.92981247865328e+85, -0.978626555777671, -5.71130873268642e-117, 1.72206506330693e-136, NA, -5.03480096093107e-303, NA, 1.19698706936075e+286, 2.41639082772843e-164, -7.35839911619416e-214, -7.0172956479681e+264, -2.10534347608629e+235, 5.65780108301321e-211, -3.55382812226257e-307, -1.71859904303365e-146, -1.5204782054853e+150, 1.47951539757314e-26, 3275319846595088, -2.80025885434886e+227, NA, 1.13229789023651e-153, -2.19104224245724e+160, 7.73894090364282e+56, 694953712.139485, 5.8411322051019e-181, -8.42785665887644e+143, 5.41919559362911e+224, -3.26616780765831e+22, -3.61801180595461e-28, 4.26160521294394e-265, -Inf, -3.6763093625191e-69, 1.92430638783797e+304, -2.54783489297397e+255, -3.35089318818035e+72, 8.10025615446989e+78, -4.35803245378201e-244, 7.33766360642965e-16, 0), weightsB = c(-4.12287870525749e-196, -6.7083069619851e+90, -1.15603236846106e-273, -1.73811285114842e-66, -8.94587265417823e-253, -1.12391559079361e+294, Inf, -1.82987742001658e-301, 4.2742538550215e+117, -3.83805378902306e+188, 2.41877518888279e+30, 1.59010880690145e+173, -Inf, -2.10162654210137e-204, -8.71716082687656e-112, 8.71177294354951e+246, 1.89054601238843e-23, -1.31449281603385e-141, -Inf, 5.10381642366266e+72, Inf, 6.85517731631319e-280, 0), winsA = c(-1.66667893622001e-49, 1.91698338082271e-80, 2.93871033907185e+294, 6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304, 5.22278042553461e+77, -2.97932406633684e-194, -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185, 3.43512439634007e-26, -2.80408356385423e+194, -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270, 9.9348541420566e-272, -4.49673024853768e-166, 1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297, -8.50762375722852e-293, 8.10981151245745e+266, 5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252, 5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54, -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151, 2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232, 3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49, -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240, -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138, -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143, -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15, -3.80097643545023e-13, 4.66046102560888e-69)) result <- do.call(elo:::eloWinPct,testlist) str(result)