testlist <- list(p = c(-4.40542167393296e-65, 9.93765015009146e+292, 2.32002580293826e+83,  -3.79864241792839e-121, 1.8883108834625e-213, 2.45400007991628e-127,  -5.16833556972955e+138, -6.51850214476773e+234, 5.70876483084426e+39,  -1925.98874452245, 3.40619744136121e+177, 3.79124675916177e-141,  -3.78688578449402e-26, 6.67997172957005e+201, 1.9529638921179e-225,  3.6712239261411e+174, -6.02246826322777e+297, NA, -3.64068544838652e+264,  -1.02667353736304e+221, -4.93898503461023e-292, 1.18829283671081e+83,  4.54940249892308e+83, 6.14545433376592e-207, 2.68266245762969e+268,  -1.49404189804505e+247, 7.68738535365778e-208, NaN, -1.21095565819795e-290,  -9.56764834309804e-120, -1.23782442780946e+306, -6.58679767209119e-128,  6.87917021540263e+136, -4.09753193092625e-228, 5.93333407886065e-215,  2.89107199791954e+289, -1.646287653183e+219, 2.77718146285877e+36,  9.30500924864227e-126, -8.40171409844756e-48, -8.72773219496197e-222,  4.27064912662926e+243, 7.56179477482992e+267, 1.4852464645177e-139,  4.58275012087099e+262, NA, -8.2398052672162e-124, -1.61625624077693e-196,  Inf, NaN, 3.46444855761134e-66, 0), q = c(-4.26535585626031e-172,  -4.91159339879264e+144, NaN, -5.78033365502816e+47, 3.14543417671943e+71,  1.45707072314645e-150, -1.49647307269512e+55, 3.17593602330385e+283,  -8.03700930127113e-63, NaN, -6.8764198779315e+114, NaN, 6.06514241082836e-274,  -Inf))
result <- do.call(textmineR::JSD_cpp,testlist)
str(result)