testlist <- list(KRGCL = 8.49302111900969e-156, KROCW = 2.3101478106642e-110, KRWIRO = 3.10304200386527e-242, NG = 2.52690226121356e-92, NOG = 1.11226229189142e-105, NOW = 2.21350732602396e-283, NP = -1859828324L, NW = -6.50756337909151e+282, SGCON = 0.294745246630951, SGCRIT = -1.06065888860228e-253, SOIRG = 5.59645191236487e-186, SOIRW = -2.34774089667777e-115, SORG = 1.01539834277805e-303, SORW = -1.09566637561084e-272, SWCON = 1.21154455781185e-308, SWCRIT = 2.22664784550968e+87) result <- do.call(Rrelperm:::kr3p_StoneII_So_cpp,testlist) str(result)