testlist <- list(Dm = structure(c(1.44490885564187e-58, 9.22208721125411e-137, 1806697.01460772, 6.72205349976144e-41, 2.76728595805203e-26, 1.09355951273706e-262, 4.30405028305929e+28, 3.22379994392573e-156, 9.52495901198736e+210, 1.55069832592414e-34, 4.05796242081553e-257, 1.37674478425218e-33, 1.03561515098745e-231, 5.63915354080258e+242, 1.69258226565445e-230, 4.64407655806622e+148, 5.66387314191972e-136, 7.93922351712063e-201, 3.34468918879896e+305, 4.1355358258825e+282, 5.7716977218293e-250, 9.09839277900909e-102, 5.28644043192218e+177, 2.58404841930704e-117, 2.05451025378419e-46, 1.20971249681738e+67, 3.0560803375907e+262, 5.07135083560991e-269, 4.06427980078836e+147, 9.46224136743467e-08, 4.08105156253487e+178, 3.91580922173121e+268, 1.37727423704266e-247, 5.39659287310084e-129, 8.03599906020277e-243 ), .Dim = c(7L, 5L)), parm = c(-1.28819776167301e-143, -1.45570655030323e+185, -1.61528396737188e+163, 3.78744131551727e+112, 2.78034154846527e-183, 6.56931262197456e+75, 8.86335001642955e-126, -5.57805329100278e-99, 3.06896920669369e-150, -9.68520749751603e+306, -3.88036641602075e-119, -1.42809016995803e+167, -1.4408338023121e+255, -4.85242360241528e+85, 2.15905957038612e-167, NA, -5.0003309478564e+169, 2.43193678139239e+41, -1.26575688274514e-33, Inf, 2.94907244763393e-59, -5.32327843733895e+134, -2.84525034060414e-185, 4.65505409559194e-278, -8.91383160471614e-06, 4.94832332800271e-55, -1.08606642648185e-193, -2.78824753984879e-103, 5.08956233361899e+92, -3.22077515789836e+238, -7.121837190153e+266, -Inf, -3.47661107111317e-66, -9.33522313560533e-262, -3.02702563926345e-192, -3.28513373478621e-13, 3.31447911030442e-304, 6.71534142878642e-47, -8.06532454629661e+106, -2.62829993797811e+82, 1.94471392033969e+252, 1.02426626548152e-133, -3.0674087940974e-119, -Inf, -1.18552850473848e+184, 108800578818.412, 0), TXmat = structure(c(4.00173052069737e-106, 3.85689516417817e+141, 1.13283672795819e+234, 1.72540765624102e+81, 3.91196920370631e-280, 9.12037780778113e-304, 3.29191593960293e+180, 2.17120801215626e+120, 2.14112084817791e+160, 1.86615432963308e-193, 5.37013124487217e+165, 1.25156956975821e+203, 4.08966650765827e+204, 1.01343083350763e-17, 5.07274105381256e+101, 3.791754700471e+51, 2.06030116494277e-223, 2.19745367549421e-293, 3.16606989178961e+293, 3.25687204120458e+266), .Dim = 5:4)) result <- do.call(icensmis:::gradlikTB,testlist) str(result)