testlist <- list(alpha = -9.69681420987569e-227, delta = c(-6.12006674987206e+182, -1.12078669882622e-102, 3.69205380606333e-264, 3.33753054694469e+207, 3.19064041611403e+131, -3.77741199861106e-11, -4.23527628846484e+237, 4.9252273677339e+294, -2.35520740514494e+93, 1.21025130665086e-47, -0.000150369968398262, NaN, 4.06223274486961e-197, -7.09301655382095e+105, -3.99708398842505e+23, 3.22279382707512e+197, -3.16969918254877e+77, -2.42203977020347e+75, -1.6812569736208e+186, 2.10193239645785e-124, -7.92790012559804e+157, 2.12832898366337e+206, 3.4349171438376e+190, -4.89681278339085e+86, -8.27524835452754e+20, -2.26720356073902e+225, 3.94636820034512e+303, 6.36583583288527e-28, 2.24914437967901e-197, Inf, -1.12713343099586e-22, 1.90458024769893e-149, -7.05680122021661e-275, -9.81975000886424e-173, -6.88341936574544e-228, -6.75268570067339e+238, -1.78884585667544e+163, 3.79980000183882e-56, 3.60541396801447e+96, -6.21673907044542e+88, 6.99093647124792e+195, 8.73295157496138e-179, 8.49187053308838e-84, -3.59669984704342e+164, 5.617121351086e+138, 5.49892142683361e-80, -7.71636583931554e-296, 8.26642176790341e+275, 2.19284730310907e+157, 2.01769191408685e-220, NA, -8.06982437291346e+275, 3.04135067770758e-176, -3.80542389999266e-61, -7.3339369912642e-134, -2.97460211437918e+65, 2.77122750700924e-225, -1.36993686373991e-227, -2.34961536475705e-224, 3.32164314942369e-182, 6.35653476190785e-15, -9.09393613747618e+124, 1.17014797151049e-135, 4.00639628159324e-233, -6.34056916568562e+71, -2.99418084805009e+117, 1.77241242630244e+118, -6.87197312457999e+235, 1.3681186038062e-96, 2.09362886944712e-155, 4.99800441323177e+41, -4.91454013219414e-25, 3.95539131547887e+163, -8.5309070102016e-307, -2.00065405188696e+104, -4.2594567568384e-180, -1.12788633801132e-08, -1.47714365264564e+288, -1.37475045349749e-87, 1.9991118480739e+250, 2.29809593936663e-61, 1.28622624207902e-303, -4.37834446235589e+49, 6.2201457906541e-61, 1.90458024769893e-149, 136575467200.311, -3.89079132236115e+193, 5.16995799989958e+194, -1.6259916909795e+59, -9.29146453549632e+192, -9.47336174924469e+85, 1.51672669697755e-153, 1.51182993281069e+162, -6.79752882607551e-258, -691748296877996288, 6.71777592684358e+250, 2.36545296554583e+205, -32961026677408276480, 0), resp = 1097878504L, theta = 2.35602469004678e+145) result <- do.call(PP:::P_gpcm,testlist) str(result)