testlist <- list(p1_ = c(-2.42074254620012e+227, 1.13726550820883e-151, -4.50793698695092e-222, 8.5564256828817e-274, 1.28801042638998e+261, -6.56889234874079e+294, -198522123.344419, 4.25977828383531e+189, -4.55565280357371e+30, -1.31864139164216e-303, Inf, -7.59722753984271e+179, -5.87131202028006e-148, 1.06843256173256e+148, 444629472.055702, -2.09741308654641e+104, -2.89030417776816e-113, 1.07689476818057e+272, 6.01060516635981e+26, 3.38964758019831e+106, 5.12976616470696e-25, -2.21781269048604e+205, -3.23876495178046e+204, -2.0237122516974e+61, -8.0381923246248e+164, 1.96415475071996e+42, -1.38019269195004e+79, -3.61480928959875e-141, 2.78959474893312e+233, NaN, -3.71329348063607e-91, -1.5108039772535e+100, 1.20336769402469e+163, -4.61375321930191e+50, -3.61480928959875e-141, -6.07399614317532e-234, -6.29026351501877e-14, -2.51285453890207e+36, -3.01584286448424e-288, 1.07770721753296e+267, -1.12289310221131e-29, NA, 1.81134478088063e-183, 3.01696512652021e+285, 5.66213440360152e-288, 4.48119995565712e-64, -2.63277752903759e-39, -8.09805586629113e-62, -1.72304081752358e+68, -1.01604727502208e-158, 2.10691614609148e+106, 13075999395.4332, 0), p2_ = c(2.14608296157837e+23, 2.79147648200142e+209, -4.18985921002709e+297, Inf, -1.17656815746123e-259, 48680681303555.1, 2.71865291726552e+107, -2.73440550044651e+40, NaN, 9.59993475304553e-57, -7.40026382420516e+277, -Inf, -9.7147947969813e-70, -2.26588228735115e+286, 1.83268213710932e-91, 8.81133887125912e-09, 9.46364402498584e+218, 2.66686633387859e+243, -5.64893002215218e+166, 1.28258825252765e-282, 3.70480311950578e-186, -1.47306768470507e+173, 2.0648410541909e-90, -3.89412259097961e+256, 7.61919846467993e+61, 5.69422879298259e-26, -2.21902010900896e+98, 1.93965555304799e+192, -8.72043762273609e-191, -4.37133426977097e+187, 2.09513273143093e+167, 2.78426294703981e-275, 7.33189543468456e-172, -1.0953702928536e+244, 1.21319185940827e-57, -5.349982489018e+207, -5.07500893714599e+51, 7.02716253288091e+85, 9.5705874000951e-116, 7.18222199745866e-154, -8.17938129972161e+198, -1.51286688247544e-230, -2.13762194903725e-52, 6.93245357208336e-88, -2.10415416205224e-102, 4.19191446066567e-227, Inf, 8.62320308233216e-181, -4.68916816486766e-209, 1.10139816375209e-219, -1.41815660224657e-187, -1.55468185519583e-57, 0)) result <- do.call(ffstream:::combineTwoOneSidedPvaluesRcpp,testlist) str(result)