testlist <- list(counti = c(-3.35105193118991e+103, NaN, -1.09240863819498e+181, NaN, -Inf, 0), inbag = c(-1442231490L, 1951431100L, 648717558L, -2115114317L, -402938885L, -323317751L, 730897000L, 1883891994L, 1379227846L, -2049867092L, 2066195197L, 344764668L, -2024540300L, 243760441L, 387424647L, 1619763635L, -1057392315L, -872615610L, 596919095L, 552874920L, 1193942101L, -1298559031L, -1322233583L, -1141717893L, -331431497L, 984808797L, 1178702951L, 902303612L, -232009052L, -1000247691L, -1849718963L, -1320433507L, -1987488573L, 1012015234L, -1816794680L, 2113422447L, 588649704L, 2005032201L, 1105483506L, 807309497L, -1461420572L, 916285129L, 1381011919L, 1222000492L, -330083228L, -709792490L, -1765603130L, -510099575L, 2113695155L, -1697350164L, 604945516L, -453257007L, 1311520035L, -559793804L, 1698773574L, NA, -1237513648L, 294075445L, -1762090374L, -210089151L, NA, 580778375L, -550252871L, -325185374L, -618990867L, -1573969352L), nnew = 594480859L, nobs = -917316202L, normalise = -1501367014L, ntree = 1789999929L, ONv = c(NaN, 120828.470703154, -7.01896987361692e+100, NaN, -54922609503587840, -Inf, NaN, -Inf, 0), thres = 6.25311575928073e-93, WEv = c(NaN, -32757224876546640, -Inf, 0)) result <- do.call(quantregRanger:::Findweightsinbag,testlist) str(result)