testlist <- list(fx = c(-1.10313086819576e-62, -6.56429725868017e-215, 7.45825409413512e+153, -2.27707493670972e+111, -2.03248074614259e+296, -7.93178391860831e+148, -3.33280379828856e+112, -8.68149875378481e+25, 2.28509648052806e+21, -4.79252836732045e-235, -115.106782312614, -6.44654484404246e+58, 2.20629148264402e-294, -6.11278894537538e+218, 3.60571350994249e-268, -2.93753888659986e+111, 2.46606683098368e-232, -2.18610601762793e+52, 3.4070156641902e-151, -1.73212281080764e+118, -1.41363266324817e-286, -1.43729853645136e-55, 5.54004525895112e+70, 2.97653192183563e-26, -1.29871998998761e-142, -5.26831897627577e-308, -1.7276605174102e-67, -1.3442476896299e+161, 3397636670.69195, 2.34232700981296e-88, 1.93990957635841e-267, -6.06544998616901e-177, -1.48306522896198e-94, 5.99555000271103e+31, -2.22070852772512e-290, 1.66435091630472e+46, 2.71336769594215e+85, -2.36058942079536e-172, -7.966686859725e+176, 3.83345231480324e+255, 4.70167078019193e+290, -2.14066837211303e+70, 9.86598520197932e-33, 4.54397354526039e-79, -7.50096530743384e+237, -5.40257641890771e+189), x = c(4.05469640282929e-74, -9.15957770036651e-292, -1.32519400453074e-180, -6.768064057128e+55, 6.93167353918564e-298, -7.93207217335267e-75, 4.92413821106459e+279, -3.21289839021497e+304, -5.46611352430453e-223, 1.76308897308883e-71, NA, 8.76265590508159e+199, -6.50977903572512e-218, 80824280319427.8, -7.15363843764732e-306, -4.79284955995866e+101, 2.28157067720536e-100, NaN, 2.91968468407041e+200, -3.24789929302122e+39, -1.27167998990012e-242, 5.51174587642845e-92, -1.6684458815266e-79, 2.6178282211869e-270, 3.98183616356748e-48, -1620778835715890, 2.66341274222442e+164, -9.48246738206064e-247, 4.51839624400382e+290, 5.80939096380608e+81, 2.51454280536704e+247, 5.45113384939425e+89, -5.09243048446923e-151, 3.47493860786923e+239, -3.02743309827443e+271, 5.01831781666588e-09, 14410186047052.6, -9.88443139882848e-148, -4.73840974262017e+220, 1.42774005672519e+305, 3.6189139903988e+92, -2.07715974550536e-80, -7.3794262058441e+302, 2.55506364328384e+42, 3.65619768814602e-162, -8.92401896958916e+167, 1.12479833871983e+240, 0.000193957807681168, -4.75606177726044e-23, -2.50111686205482e-218, 1.79288719945981e+115, -3.44320686879788e-95, -4.57000116995103e+135, -6.9886525764733e-259, -1.52495910038766e-12, -1.13833227747963e+63, 1.00919875598354e+121, 7.39254326798443e+59, -1.03187106734414e-271, 1.06002620986478e+205, 3.0038626785172e-115, -4.43513609300006e+101, -Inf, -2.47342466606039e+202, -3.6268543821459e-63, -7.08080116186419e+258, -4.8018614966539e+59, 7.46856540787213e-201, 8.80122542949415e-175, -2.18841891532668e-125, -Inf, 1.71035027296727e-21, 1.11318605406686e-80, -1.80205887294625e+278, 3.06160627905932e+74, -3.79473351347487e-225, 3.08872679341186e-142, 6.45917349374786e+78, -2.00971080070718e-174, 3.65033752288784e-78, 1.31216204215141e-69, 3.13433245718369e+50, -1.34501274834357e-166, -2.70415102043678e+288, 0)) result <- do.call(irt:::integrate,testlist) str(result)