testlist <- list(KRGCL = 6.25852389510399e-52, KROCW = 6.32853562942855e+39, KRWIRO = 8.16569771621333e-52, NG = -2.35447766221329e-240, NOG = 1.63322001611413e+88, NOW = -4.48169535677804e-212, NP = -1849710260L, NW = -4.5315551395946e+271, SGCON = -2.71320030906643e-07, SGCRIT = -5.12321944233722e+298, SOIRG = 1.7390000678906e+239, SOIRW = 7.94087759273787e+258, SORG = -7.05104992032803e-222, SORW = -8.02703819931323e-103, SWCON = -2.11230903107749e-131, SWCRIT = -7.26539099575282e-140) result <- do.call(Rrelperm:::kr3p_StoneII_SwSg_cpp,testlist) str(result)