testlist <- list(array = c(-1.72121110193461e+187, -2.28862232451326e-42,  -3.17527792159287e+212, 2.46667859116869e-86, 2.28393946356129e-55,  2.59435238785996e+241, -7.22582527675169e-217, NaN, -7.27981286484918e+99,  4.54275966796705e-241, Inf, -3.60970586076332e+55, 5.50503779583268e+287,  9.25655737728814e+260, 1.04605174696511e+288, -4.4694629616439e+285,  -3.80852836383004e+121, 4.03822529379671e+81, 2.24933085208246e-239,  -5.29460184341088e-202, -2.95649015643718e+65, -7.30542942853672e+59,  -1.54533096332541e+76, NA, 2.38120591739431e-167, -3.30714814111543e+68,  1.49612666398753e-304, 5.92763247244698e-300, 7.38635892888145e-168,  -1.50355849130314e+120, 7.79189537043807e-90, -7.86497255493703e+286,  4.51759444758205e+123, 1.34691502274029e-60, -1.87211214018436e-60,  3.63993254633641e-237, 5.72006140659017e-299, NaN, 1.63927996117561e+214,  8.41436942146831e-249, 3.0866943068786e+146, -34283630024724644,  8.02333399776015e-162, -9.81121896337603e+249, 1.65858972486813e+214,  6.44985967557696e+171, 2.53752375086282e+224, -5.20507372462404e+113,  8.43501701210618e-163, 1.50712886437367e-55, -5.28210217420807e-140,  -3.03975601780025e+168, 2.9051375558049e-216, 5.47527408382013e+116,  1.48608521537159e-263, -3.46513552921348e+276, -2.95274952442484e-90,  -6.38776478417907e+45, 5.07008292913763e+306, 0), minout = -7.85880013920502e-165,      n = -902076188L, whichout = -62770591L)
result <- do.call(bartBMA:::min_which2,testlist)
str(result)