testlist <- list(irf1 = c(-5.02291637596725e+117, -5.72941592499415e+144,  3.57163680144006e+306, 5.1074502371164e-90, -2.60609401675829e-23,  -1.01324304677219e-174, 1.23214175407772e-272, -2.47342710164104e+92,  1.60773784325527e-28, -2.4671181621373e+282, 1.54162529563486e+153,  1.27626918971496e-286, NA, 5.05723775065159e-294, 2.12400470318687e-163,  -9.51322527977542e-197, 3.19247409491708e-184, NA, NA, 1.80254340298381e+45,  -1.19984617346502e-167, NaN, -2.85375313625005e-285, -4.96181582679852e+212,  2.93452688424718e+51, -3.48461004441606e-264, -2.09114629438106e-209,  2.70314661994904e+165, -4.35122767000865e-245, -4.7888039998992e-91,  -6.156071458036e-134, 1.58392495589908e+299, 1.75992208404568e-188,  2.92513266167968e-276, 2.05443988553919e-194, -8.74339335425147e-139,  3.22331413379946e-237, 6.20751978617475, 8.2741183176495e+256,  6.67259751396664e+42, 1.74060816995693e+94, -10461517900.5758,  8.21606235820788e-152, 2.27704808300536e+266, 1.32765433246678e-258,  -6.5879078243921e-221, -4.94509055290786e-161, 8.46074917608266e+220,  0), K = 322141840L, resp = structure(c(NA, -Inf, -Inf, NA, -Inf,  1.55275352858005e+40), .Dim = c(1L, 6L)), TP = 67122172L)
result <- do.call(CDM:::cdm_rcpp_irt_predict,testlist)
str(result)