testlist <- list(epsilonT = c(-4.26446911406086e-280, -2.56420907158905e-145,  NaN, 2.52786599121679e-82, -1.02148721213984e+178, -2.9287269021759e-292,  3.45532709077097e-306, -2.10409371163219e-121, -6.46458028615034e-297,  252347905886031, -2.49149168698579e-280, NA, -5.42273559728288e-10,  -2.43546893290874e-226, 5.15850821436841e-167, -2.36072789817227e+250,  5.84090638032753e+38, -5.69127389528518e+290, -3.09131801295214e-64,  -1.62356917252053e+186, 132080.09039887, 4.27890553695346e-80,  NA, -1.82439988541441e-105, -1.29427771406915e-55, -5.97584646436741e+144,  1.94498847396846e-149, -3.20343022401379e-34, 5.88355022665154,  -7.05837055289219e+109, 2.22364525737144e-56, NA, -2.12634854651223e+192,  -1.01727120057666e+115, 1.41262944695057e+63, -1.26649017108609e+193,  -2.91248565839114e-100, -1.75783702859763e+97, -3.5692089786734e+258,  9.47120161591156e-14, 5.14049048398263e+234, 3.51311176426654e+218,  -1.02621945001462e+259, 4.11506377830993e+206, 8.75720027224267e-40,  3.30019778171729e+253, NaN, -1.05843413962882e-88, -3.0144363014531e-280,  -3.4630897618219e-206, -1.08791500539417e-131, 1.63793005565825e-63,  2.98834808566155e+35, -2.03965437473659e-07, 2.44568723940423e+298,  -9.59946839033906e+267, -2.09600025624183e-199, 0), ndays = 256606119L,      parAlpha = c(8.23655578309179e-305, 2.59989398696077e+268,      9.7718271475834e+47, 3.84695145244045e-279, -65416721.7995704,      9.91185667067688e+188, -8.43667244602565e+118, 3566871850504834,      6.14127271456291e-294, 2.07880407375087e+173, 3.69754229115656e+289,      1.71230405440466e+286, Inf, -6.04271121727938e-215, -2.20361212201158e-272,      -1.32994877511053e-22, -1.23515342193941e-240, 1.43763474836034e+239,      2.08756160424883e+93, Inf, -7.62882393061233e-296, -3.46852773180925e-177,      -5.09249721228913e+255, -7.4152616255293e-190, 3.5081723815529e+216,      5.26831620942894e-301, 3.69528663659176e+87, -7.91072478499441e+27,      4.79704407798566e+187, 2.13155942019063e-159, 1.19989454625495e-53,      NaN, -1.49067798212937e-199, -3.4512176446788e+240, 4.48770034692415e-184,      -5.53811484293094e-14, Inf, 4.71976942734506e+123, 0))
result <- do.call(foreSIGHT:::latentX_calc_cpp,testlist)
str(result)