testlist <- list(Dm = structure(c(5.32935108285831e+262, 2.48961232415317e+121, 7.13521197259026e+60, 1.53876212253637e+196, 9.79947056640444e-249, 1.01437490630161e-190, 8.02799275561389e+257, 3.17234820921721e+183, 1.12003422941825e-215, 1.94311753567476e+143, 7.23441981867406e-115, 3.38182033510871e-40, 1.70220948810347e+170, 7.11060226558777e-305, 6.13777790950016e-18, 5.18623723425519e-174), .Dim = c(8L, 2L )), parm = c(7.89418215683049e-272, -1.27764251789105e+282, 6.70031850672188e-91, -6.14020481830157e+94, -1.31541207397235e+181, 2.51518146233487e+123, -1.59642713202813e-150, 6.92605692673725e-16, -1.22692729454942e+56, 1.21952998131705e-230, 1.16856695154684e-255, 8.33215858221389e-60, -1.31344891743357e+212, -1.37324893216112e-296, 5.68377564397659e-262, -2242925159112588800, -8.78912576886937e-200, 2.75629311268016e-77, 3.98953731438698e-224, -Inf, -1.6544394281865e-235, 1.6940460339862e+307, 8.33164518881495e+81, 8.41217994833979e+203, -1.17289284398958e-266, -7.48991105629501e+282, -1.73874637710725e+100, 1.92625557177532e-223, 3.4121194359661e+97, 2.71649942726583e+162, -5.48272309171645e-102, -4.00725447193388e-166, -8.37375580948181e-282, 1.15687923626833e-240, -3.79140378721994e+64, 207.34103981272, -1.65899248322098e+111, 9.68364458062815e+247, 8.37561035700415e-184, -5.50613051553397e+187, NaN, -8.75629538109977e+164, -1.40651253063834e-276, -5.0940078063135e+126, -2.58086198452772e-26, -1.60530269995494e+297, -1979795.72089612, -1.31541207397235e+181, -6.46078685006666e+196, -7.08328884754926e+102, -1.87530990189686e+64, -1.54534198384266e-49, -16807262118890.7, -1.03960590736652e-209, -Inf, -6.20455844194065e-43, 3.66637514015622e+119, 2.3030412404005e+95, -3.50951036707984e+244, -1307114624132352, 0.00238262870523626, -3.71134134553704e-06, -2.09592153416642e+198, -5.88121016532786e-166, 1.3130570400846e-10, 3.95921716980716e+160, 329753801.545347, 3.58259529290812e-49, 2.341347346617e-225, 1.45450573706356e+216, 1.88771734114756e-80, 7.4171861189464e+194, -8.44991142471282e+286, 5.62021157325239e+268, -2.56104386798726e-30, 2.88524805906256e+198, 4.98136490605492e-157, -1.57472294858426e-34, -2.57001158930535e+244, 1.24705457904371e+204, -9.47994106592285e+283, -3.56815099165545e-197, -4.68193455703583e+208, 5.02272403188541e-101, -2.15258450945655e-30, 3.65966837041654e+155, -2.72417410829956e+83, 5.60548632929456e+278, -1.18759617878015e-20, 5.73026190939989e-308, -1.39965245148314e-100, 0), Xmat = structure(c(5.06484326524687e-296, 8.68790803177722e-40, 5.13373330333631e+45, 8.78322125339136e-126, 3.99049845430417e+232, 2.59798444030426e-05, 2.03571950402608e+229, 8.83528903138159e+274, 1.06743008185306e+67, 8.75307938738315e+53, 1.32392087103843e-148, 2.652709747379e-188, 3.90487891284219e+247, 1.74766443307109e-122, 1.79811460469996e+297, 1.33151997886696e+165, 1.13783035114312e-41, 1.24129884187318e-146, 8.70934760485628e+265, 3.15853724383493e+30), .Dim = 4:5)) result <- do.call(icensmis:::gradlikA,testlist) str(result)