testlist <- list(pIn = c(2.07937643009613e-199, 2.01911725008243e+285, 9.45632380457401e+238,  -1.68635472039705e+194, -2.91274164129968e-103, NaN, 3.37702870573721e-10,  -6871938595449952256, -1.70044365773792e-42, Inf, 1.42997149742111e-173,  -1.10968467005115e+32, 1.53924240444195e+258, 8.70352504524453e-281,  -7.04719181704079e+199, -4.13486706714293e-223, 3.5496878379154e-66,  -5.9719872096615e+97, 6.35195596759415e+251, -2.66525624752944e+203,  -7.54005476521808e-240, -Inf, 1.52020412129909e-41, 2.96014531893707e+225,  9.38570330041886e-282, NA, 2.64836744092633e+58, 7.41820995726258e+208,  -1.98280986862535e+174, 5.01617274202728e-279, 7.85569163100511e-46,  3.94688817510977e-308, -3.14207882600777e+273, -5.3012607122483e+287,  3.11064714185635e+58, -3.40165019811451e-19, -7.4570568666878e-144,  1.08481034756003e-69, 6.09567665792045e-57, 2.40090794381919e-296,  -2.12807463515741e+273, 2.69277376133809e+175, -3.42067792941883e+96,  6.51310396428707e+44, 1.12533513628486e+124, -1.04633471260965e-191,  8.33709205467824e-142, -9.51887516040098e+84, -5.55673896937926e+199,  2.14838366566577e-233, -1.5704336854577e+227, 1.82688777511763e-115,  9.38637348400947e+185, 5.68250176714635e-148, -6.37120024257605e-235,  8.1277858321038e-266, 2.24417396777225e-15, 4.48553842743158e+241,  4.20870014673624e-210, -5.00540155527294e+178, 6.71800816179917e+268,  4.47953419411372e+127, 1.25457485288268e-225, -1.42353389610249e-230,  5.16418392771858e+275, -1.80470932438693e+196, -1.91276216328837e-74,  -1.25078438779156e-194, -1.27785541194626e-52, -1.06729623791546e-76,  -1.14743736716312e+164, 1.83510367270296e-265, -8.55546405540076e+104,  5.89678343055067e-156, 9.00939550518577e+201, -2.5393552538953e+244,  -99258608.7376862, 3.09657352902056e+154, 8.05710356718962e+46,  0), pop = -595928826L)
result <- do.call(humanleague:::prob2IntFreq,testlist)
str(result)