testlist <- list(Dm = structure(c(2.373746862626e-142, 1.13658134230784e-160,  1.39845083878203e+235, 8.06576136087766e-53, 3.76196409594815e-235,  7.76845390033242e+137, 4.95701064278954e+65, 5.75097217800013e-42 ), .Dim = c(4L, 2L)), parm = c(3.37126464459783e+137, -3.77731345039162e-239,  2.1937801616677e-29, -1.96173523971651e+169, -5.36024627447167e+203,  -1.37440982476973e-118, 1.28179808537896e-90, 7.43987865266569e-90,  -1.18792113286568e-112, 3.91125465331241e+238, -Inf, -1.73064515004692e+208,  -2.45015351266219e+70, -2.55550083890035e+91, -6.49845187055384e-156,  2.45340420359348e+215, -1.8639344619907e-196, 1.57669109135085e+284,  1.12418210340475e-211, -3.25877933370346e-300, -3.18272106831634e+198,  -7.74394612816315e-267, -7.44443014912207e+270, 73975.090162262,  5.8635557032202e+221, -2.66081148827287e+110, 5.10621444545982e-299,  3.14539749776373e+307, -1.00933091214467e-72, 2.01803783500142e-114,  7.56867251604942e+230, 2.90468082809793e-244, NA, 1.19840996519432e-56,  7.80612009498376e-35, 2.42723762834067e-273, 3.17852235260736e+264,  7.99581242128824e-66, -2.15679473807334e-80, 5.56510235443745e+128,  2.75218147409698e+159, 2.48658521602371e-223, 3.75392448209358e-243,  8.03699047607974e+40, 5.36414764969518e-213, -1.14975050057183e+247,  1.75529428681748e-41, -7.35840060356828e-20, 32290702029.7035,  -1.04400215737589e-106, -1.02288608743219e+301, -5.0571978823922e+50,  823122273965.357, -3.5014544817143e-196, -4.44095911818233e+126,  -3.19767510071504e+256, -4.50286081577235e-127, 1.35129379614003e-205,  9.37596721462091e+187, 4.86687452937003e+33, -1.89942407114675e+138,  -3.95675846713643e+65, -2.01829110476339e+145, -1.35802014622097e+194,  -1.92787063066421e-28, 5.6334120382369e-116, 4.23577968147534e-97,  5.0607115092027e+75, -1.2047294902993e-147, 8.35391385018252e-291,  Inf, -3.46539571465668e-272, -4.91914799849302e-111, 1.17000028499172e+254,  2.14801935599945e+281, 1.48894432124242e+295, Inf, -2.33477830810612e+43,  2.38906183834317e-223, 6.01490508598497e+44, -2.95331911271616e+91,  1.01510448781939e-07, -2.50538366550022e+182, -3.39037125621638e+244,  -3.55140436837408e+182, 0), TXmat = structure(c(8.39095389685091e-52,  3.46311802753318e+256, 1.00083040900018e-185, 4.93140291973916e-132,  1.28166099431401e-263, 3.93381464052017e+179, 2.2886690980364e+31,  1.24358211155623e+135, 9.43461800486673e-105, 8.04697079985163e+147,  8.08052686789705e-288, 5.46462050476816e+41, 4.05607109881169e-225,  1.90442470013999e+218, 9.92783673446196e+239, 1.29987717265911e-21,  1.99397294006361e-165, 3.10291149787345e-250, 1.29527924047117e-224,  8.00967026429804e+256, 3.29103107242414e-102, 2.46631734561855e+284,  2.15221298971727e+68, 1.62974139094654e-214, 3.16761923614119e+212,  6.27210711017634e+54, 9.77083397603467e+65, 8.26409256348146e-299,  1.12348964182346e-256, 1.73437949182062e-180, 1.73381555912469e-295,  8.91886170198797e+266, 9.66499833922541e-270, 2.29255804687286e+222,  2.84969658399086e+108, 1.03587586562821e-69, 2.25322018206705e-20,  1.76607579836798e-298, 7.57577678793219e-84, 1.88638639417445e+79,  2.89955793888137e-22, 2.19123638704305e-251, 3.72434333859826e-134,  4.18457973646448e-155, 3.37028743863519e+279, 3.20967881469756e-156,  2.71530444663166e-148, 2.86642443298614e-90, 6.77942461412495e+159,  4.60976100171456e-204, 5.67631277880565e-36, 2.90131110178375e+244,  6.34092414883155e+277, 1.45490635011526e-282), .Dim = c(6L, 9L )))
result <- do.call(icensmis:::loglikTB,testlist)
str(result)