testlist <- list(p2_ = c(-3.58916451076834e+210, -0.0252801824513309, -4.51870651660407e+125,  -4.27894229977507e-306, -6.71942408007613e+182, -6.62791596971917e+116,  -4.07281812256833e-157, 1.57786748977716e-71, 6.25053436625512e+253,  -8.50479621502546e+74, 2.24655719312698e-109, 2.9119337517412e+288,  2.54344704865797e+243, 2.87415358257138e-86, 6.49976051759106e-40,  -437107.90610385, -2.99891960431087e+121, 6019645894442902, 5.08147499341557e+287,  -1.26210306616047e+130, -2.28427136546011e-272, 3.73797932974116e-183,  2.01609710769526e-256, -1.42903705768252e-78, 6.43015256502197e-307,  NaN, 1.87759071409895e+147, -1.07130018632441e+85, 6.36634973305448e+305,  -6.84631661760237e+169, -1.04302077908772e-74, 4.47237607579648e+64,  -4.42086850521421e+238, 1.85807886109722e+257, 1.43080225923602e-84,  7.98046907174831e+208, -8.95070492884657e-222, 2.23818641129988e-29,  -4.31917903460701e+283, -1.81672958784462e-75, 9.0356711907576e+101,  -3.60361414494342e-222, 1.83962099328756e+74, -2.4530463714102e+269,  -2.99329005465119e+80, -790136429.183005, -3.29920785502246e-205,  4.33440619932608e-268, 4.48194451246001e-36, 3.87219162871254e+54,  -3.72694428268006e-59, 1.44931590078653e+247, -5.6484842771069e-192,  4.38800799006034e-222, 1.49867914373749e-186, -1.57661219039807e-196,  5.73502708633048e-87, 1.0315648376229e+36, 9.95621465172032e+210,  -7.86699069441251e-32, 1.23173807411418e+137, 1.10463925755155e+126,  1.22398546037307e-178, -58969995518.1227, -5.44121902327428e+90,  3.48670834525902e+159, -1.10779223628502e-177, 1.11649037832933e-107,  NA, 2.17615557209072e-266, -5.09479831226336e+163, -2.77284362883459e-18,  4.62937979596214e-294, 7.59131285513746e+175, 1.28028395231901e+147,  2.33523334167511e-89, 2.10413641450671e-150, 5.24577310097384e+126,  3.58686630163176e-83, -1.02697717573053e-15, NA, 7.25184623545186e-292,  -6.53252712248917e-190, -3.4849799052564e+233, 1.11592064803057e-158,  -2.99329005465119e+80, -2.25841206213516e+133, 3.01870486837802e+89,  -2.50535894774522e+171, -2.53448311576379e-72, 1.46446141593199e+294,  7.46718551290503e+281, 0))
result <- do.call(ffstream:::makeTwoSidedPvalueOneSidedR,testlist)
str(result)