testlist <- list(KRGCL = 4.38431251793706e-75, KROCW = 1.2541916318262e+178, KRWIRO = -1.94398878942669e+266, NG = 3.72973236250736e-248, NOG = -9.91693226006139e-300, NOW = -1.62400102638483e-17, NP = -1901070729L, NW = 1.61609390040779e+138, SGCON = 2.69004196125464e+276, SGCRIT = 2.44673791592205e-89, SOIRG = 3.65941627334608e-209, SOIRW = 2.93362081263413e+82, SORG = -4.9238132418861e+141, SORW = -8.61897106688576e+170, SWCON = 8.7763520266147e+149, SWCRIT = -3.63254592474109e+184) result <- do.call(Rrelperm:::kr3p_StoneI_SwSg_cpp,testlist) str(result)