testlist <- list(pt = -1.96602925592901e-15, sim_index = structure(c(7.77031897957815e+86,  8.27807083588635e-28, 2.92562241357545e-54, 4.16481197774799e+154,  3.28511272550218e+22, 2.52187820284188e+108, 2.43665694932674e-308,  1.3749840733946e-77, 440104579685184, 7.769606913889e+21, 9.56597203881891e-159,  5.71303144665766e+51, 7.47385182111247e+79, 1.30410562319636e+175,  7.7253337615504e+197, 4.77475945920589e-42, 2.81460885977828e+136,  6.88343199631726e+259, 1.24032708792142e-144, 1.0866568155489e-75,  9.88749335268166e-08, 6.81935416253812e+98, 1.05420562550037e+296,  5.59331883506323e+294, 2.82613061643213e-210, 1.08408152227549e-207,  1.31109609240747e+265, 3.53412300676537e-92, 0.00016069514370924,  4.12918319227265e-268, 2.02032850274207e-133, 8.23827020965651e-29,  5.23241870934623e-154, 1.44034138940352e+159, 4.35348988504593e-281,  1.84764077278674e+123, 1.93886277802644e+288, 6.77074444192068e+75,  4.18318155190114e-124, 2.17978559400407e-08), .Dim = c(8L, 5L )), user_vector = c(1.59198398726967e+67, -5.12794637416267e+253,  NA, -5.32394278654699e-173, 5.5944949916326e+27, -1.49054578417975e+44,  -3.48957056075245e-252, -1.1183259199243e-73, NaN, -3.9048464599725e-231,  8.08032557998593e-224, NA, -2.58633926434753e-284, 4.91057172319335e-288,  -3.2625964991197e-169, 2.83155161979547e-36, -1.16419672679133e+293,  -7.74096612868497e-121, 2.87610337457203e-27, -2.58616231278292e+116,  1.12543667222216e-06, -1.17730559457351e+95, 7.12694632487648e+131,  -2.17983784185743e+144, 7.92762076465819e+152, Inf, -5.55372040197819e-206,  -7.80190039553814e-150, 1.3344878355601e+293, -3.48501806478426e-269,  5.23058198223618e+159, -1.72424743653137e+67, 2.68099781065034e+117,  9.66181855276005e-73, -4.54697076057016e-121, -2.73499829244724e+205,  3.55545152559015e-295, 540174760407.686, 1.2569405682563e+144,  8.44505272896447e+91, -0.00156136261568582, 1.30808936448046e-101,  -Inf, -4.55351655610423e+288, -5.71476421496642e-33, -6.43419054076914e+105,  8.00736494865505e+248, 9.18688374274646e-228, 2.50994418206462e+31,  -9.16338201060959e-192, 2.47225322530097e+63, 8.71530711555578e+245,  2.81267117381697e+87, 4.01542610191841e-104, 1.72478926523301e+263,  -1.15688309578338e-152, -2.03985840133968e-50, -2.46957877001725e-30,  NaN))
result <- do.call(rrecsys:::itemMFCount,testlist)
str(result)