testlist <- list(Dm = structure(c(6.14688784127549e+217, 1.49886018555503e+104,  4.63779272928325e+215, 5.6369183562311e-116, 2.88587861374081e-121,  4.33593834439347e-190, 3.2959643876212e-228, 1.02580940446249e-205,  6.50141016760271e-286, 2.75694582247797e-39, 9.54491965709448e-187,  1.88964366281459e-197, 9.98315229962128e-169, 1.5403411329357e-192,  7.17694825134373e+289, 6.14922935851264e-80, 1.38108011571391e+68,  5.50766000798813e+51, 6.1967514771385e+181, 1.44056406017684e+296,  8.04691201061758e-173, 1.09985382895261e+151, 4.13860683012025e-293,  9.51039163840962e+241, 1.62162148680797e+167, 2.25306909212103e-136,  1.11707343916835e+156, 1.78056973792397e+87, 31968938.3499026,  6.81878129818328e-98, 1.85294595971156e+20, 1.5700720203372e+117,  2.65967403968783e-229, 2.57736511480791e-07, 1.15837846438764e+194 ), .Dim = c(7L, 5L)), parm = c(2.43292765280144e-209, Inf, -Inf,  Inf, NaN, 0), Xmat = structure(c(7.41073962092529e+267, 2.59575403763624e+295,  5.77762246759406e-263, 6.83224452852275e-60, 7.32272024498962e+103,  2.29184816501428e+292, 8.47927630690479e-39, 8.76131466042797e-46,  5.66467803888098e+25, 8.05621644006742e+285, 1.13998403430347e-260,  3.09671959334327e-16, 7.95798055967894e+272, 2.80460342065417e+213,  8.77022963290038e+307, 1.72192671062711e-51, 3.51061916094471e-308,  1.1392800230957e-100, 1.13752584481459e+46, 4.54234843867173e+195,  1.54918826708121e-28, 1706.99334867595, 3.66859053898035e-180,  3.56735968809087e-82, 1.27792339839745e-180, 5.50470638358641e-184,  1.43284155909567e-30, 8.19570159436128e-149, 1.96777362577143e-242,  1.49379742570339e-178, 1.63717424244856e+239, 1.49119816414946e-175,  7.18021467100923e-99, 4.47603771644041e-121, 0.0902221453593282,  2.22032261936143e-238, 2.13251450447488e-40, 3.09484183774442e-253,  5.51793029360725e+36, 1.75037498362801e+263, 1.64585536276695e-259,  5.68469416607984e-06, 1.89988868974075e-222, 2.73846606940162e-229,  2.29225878814978e+189, 6.49226922368821e+144, 3.74624494352035e-98,  2.99918500974444e-62, 1.94927300496479e-228, 1.26321142090603e-67,  5.38714902140565e+146, 5.22097000725708e-98, 3.19835618484492e-37,  1.23555872266426e+283, 6.30937404898086e+242, 1.12095721865597e+250,  4.93620923535664e-275, 5.22911273165442e-297, 3.62199016481014e-177,  2.41077284044207e-57, 1.41656647187515e-283, 3.65339973655459e+140,  7.65694774970366e+208, 3.77597224137566e+180, 9.49119787950285e-253,  2.22669511172674e+220, 2.13693098609681e+306, 1.05979472755131e-33,  32359308746137696, 1.86250639170776e+231), .Dim = c(7L, 10L)))
result <- do.call(icensmis:::loglikA,testlist)
str(result)