testlist <- list(Dm = structure(c(6.83384737002494e+49, 4.56021653977954e+29,  3.44661544606828e+288, 4.1585994001226e-145, 4.9116030561374e+80,  7.24060473385851e+184, 2.802875479292e+264, 1.05328437917259e+117,  4.58934220139605e-275, 3.08178921895613e-201, 1.35928699066633e-121,  2.85714701733414e-20, 0.0801806137411332, 1.79403069883143e-184,  2.88310616862561e+84, 4.19509605535406e-20, 0.186364052937669,  6.06402915822252e+278, 4.84594625328311e+144, 1.95632524504932e-54,  1.26665933286418e-224, 3.87924776873367e-39, 2.61226526633021e+90,  9.40699378981275e-67), .Dim = c(4L, 6L)), parm = c(3.64402241943292e-169,  -5.2555283944118e+168, -1.55010913079557e+32, 2.41859045238581e-275,  -1.55010913079557e+32, 8.81348604436581e+44, -5.30312962436083e-52,  3.56839991354981e+276, -2.44191452121292e+110, 4.12895170123404e-167,  -2.90942995804868e-45, 9.69170019861606e+244, -7.6459461624453e+154,  1.42970493970794e-130, -2.80961615226146e+279, NA, 1.16024615774102e+101,  2.41038449218684e+148, 3.80099608470437e-278, 4.2025503683671e+58,  -4.40012672199045e+154, Inf, 7.69716649303179e+297, 3.35638418230419e-216,  -1.64263604335803e+236, 0), Xmat = structure(c(2.98827371476609e-104,  5.85207670815413e+228, 8.18843438044067e+85, 6.174471874107e+57,  1.79686506323002e+279, 1.54409594489029e+70, 4.38407665365166e+42,  2.47551040673216e-33, 1.32249989835802e+106), .Dim = c(1L, 9L )))
result <- do.call(icensmis:::loglikB,testlist)
str(result)