testlist <- list(Dm = structure(c(1.14324392420037e+97, 9.87733800565738e-41,  1.9952691691638e-292, 3.62370237249101e-212, 1.14712258033219e-60,  6.06931638291015e-293, 1.18241743779586e+220, 2.73362502932798e+88,  3.48892110907453e-188, 9.92938919790797e-169, 1.00528180121842e-199,  2.90506976749436e-22, 3.76037022807356e+226, 4.62665637392762e-194,  7.59813419852618e+298, 9.32521663147362e+241, 7.81098132514958e+127,  1.61532209310866e-22, 3.84057472998818e-103, 5.4752403542693e-195,  3.50522513412151e-296, 7.40941585474779e-199, 3.2889687699907e-236,  1.09223483712171e-240, 1.85459870580853e-178, 1.57525798248229e-251,  3.25914203550382e+20, 1.14632521752524e+283, 2.37274226633258e+30,  8.62232168911809e-152, 2.29603993460864e-29, 5.15686141858553e+162,  2.1158306678083e+175, 2.28669229389323e+117, 1.12938146134206e+57,  8.76703590049749e+36, 1.94918118279991e-21, 1450231101161.3,  7.76257634290947e+122, 1.89752076811193e+124, 1.69129497814199e-89,  9.39107842192464e+82, 4.34069848037613e+163, 3.7292444230041e-51,  8.698891271225e+31, 3.82633202177983e+222, 5.91438748783405e-33,  1.88471450473028e+295, 1.42553117825431e+212, 8.35442163895312e-245,  4.06291990269796e-142, 8.63246302708982e-293, 2.9564540325557e-08,  1.02540312730481e+226, 2.39811269317673e-109, 5.76535062310904e-157,  4.06497962302917e-290, 2.47298130014064e-174, 7.92817721780623e+154,  1.02727993135054e-210), .Dim = c(10L, 6L)), parm = c(-1.7401932417971e-78,  1.23813830333721e+216, -2.28877982258688e+120, 2.25360803771721e-95,  4.89220719796144e-48, -1.50991034113167e+167, -1.03058658225963e-220,  323046.475031024, 4.47289061170737e-288, -2.98453211809969e+21,  3.3765482699132e-163, -1.23692812874156e+115, -7.68171040816851e+74,  -1.58169882989374e-269, -3.45189885062279e-26, -8.43830660174623e-19,  5.23202585548085e+37, -6.61790522039895e-176, 7.1717950111787e-205,  -7.36818635078659e-155, NaN, -1.10991427723811e-68, 2.92134676380258e-77,  -3.04468855379246e+36, -5.54194510781554e+124, -Inf, -Inf, -2.21077455469583e+259,  1.64041472912842e+50, 8.64543907126636e-85, 1.30805115207744e-15,  4.03124327368309e+227, -9.50094489591922e+256, 5.97272984218485e+203,  2.59586205577062e+91, -1.53360319974054e-74, -1.14393994889161e-175,  6.08733303816856e+237, 101299925580748, 5.30842814284725e+72,  -1.34792890281468e-91, -1.28279089782771e-189, 4.15734268130308e-258,  -2.33591662395343e-237, -5.10395248220079e-287, -9.38875774772048e-34,  -1.47175363187638e-307, 5.31418033634814e-102, -3.30144122342705e+103,  1.88518084219857e-264, 1.23813830333721e+216, -1.55568582876232e-172,  0), TXmat = structure(c(1.22034607004722e-176, 2.30586807079004e-175,  4.11005436435145e-70, 1.00589531227661e+41, 1.258741773672e-143,  6.93825254195965e+124, 3.56267745736305e+209, 5.61185481545135e+156,  1.00507465390029e-191, 4.33824138812771e-285, 1.16661448032547e-110,  4.26818960051281e+260, 1.42588709806024e+103, 8.71790400465509e+238,  7.90450925093862e+103, 3.52943379523095e+183, 2.62015896056018e-53,  1.62714259070146e-67, 3.68858740428976e+192, 2.11600300275838e+45,  6.27369530393076e-123, 8.10001136445e+305, 3.48737419739878e+149,  3.50209438196343e+260, 1.339399674684e+226, 4.3733498972085e+126,  3.6507887179577e-298, 4.99596506861333e+105, 0.263362579626546,  1.93696558673975e-125, 1.81636515053307e+202, 1.66796052652988e+124,  6.96467320123096e+289, 1.01021036690973e+106, 4.81218506820195e+90,  1.0776042874792e-37, 8.31827118943264e+53, 4.09182800491417e-272,  7.70583320921758e+81, 1.59859768285518e+305, 7.37431342921191e-292,  9.50337945825892e-163, 1.11784043069075e+108, 1.89220787348173e+189,  7.63975653319239e-105, 9.36094660336787e-229, 4.42433714566582e-36,  1.35997670813811e-61, 4.75129554402042e-94), .Dim = c(7L, 7L)))
result <- do.call(icensmis:::loglikTA,testlist)
str(result)