testlist <- list(Dm = structure(c(5.32283342121984e-260, 2.21355224446859e+174, 6.94807410928852e+286, 9.05214214980496e-261, 1.79403954315607e+125, 1.18105668926283e-270, 4.36812920006742e-28, 1.1379075844576e-257, 1.20873433803229e-64, 5.09693091725104e+111, 8.2211086959248e+130, 1.02883718658854e-305, 1.70116188825919e+258, 9.40659920181107e+170, 5.40273335340452e-210, 1.90832513505754e-31, 9.20763874994967e+187, 1.3209392063203e-285, 6.14137652663023e-88, 5.6504898231885e+274, 4.71889023498592e-152, 5.13148347381477e-259, 1.1864112130238e-48, 989752244556.772, 7.79331646355699e+94, 7.30272628424401e-206, 2.79584422427836e-229, 4.74570107563005e-99, 7.79912064988409e-61, 1.48749497699626e-91, 1.49606746402005e-94, 1.12265065593196e-153, 1.19563584105406e+67, 2.46481165049504e+80, 8.50193153106877e+114, 1.28196409895837e+307, 8.07146637570555e-272, 4.16828106280687e-281, 8.16972438185619e+124, 1.33397626665612e+187, 7.21767756771184e+228, 5.44888840386183e-21, 9.39289442006608e-124, 1.62614312136293e+236, 1.48734409760735e+133, 1.71911147039443e+46, 4.63556316861209e-16, 2.59243203377588e-155, 4.89344811689459e-255, 2.14942769930556e+217, 7.09628713762242e-63, 6.67352339996434e+263, 1.01927099846959e+210, 1.72935107396666e-25, 5.95833548098481e+185, 6.79306861884093e+133, 3.03305581179411e-25, 3.3912975826872e-155, 7.24758136331776e+23, 7.02828039066404e-80, 9.61895258401209e-86, 6.14929336170729e+202, 1.18154768949701e-138, 7.60429909899305e-50, 2.77234828596951e+212, 1.93745448347838e+158, 5.29783906790822e+143, 5.03291396156539e+210, 1.04274824996656e+164, 1.78716100577231e+27, 1.36314108541195e-42, 1.03038186765912e+77, 4.39310737051142e-123, 1.88768034770775e-88, 4.42718441836121e-95, 2.44711319371218e-149, 3.81347487249156e-305, 4.3261287844572e+229, 1.17384687521145e-76, 9.59440812518287e-92 ), .Dim = c(8L, 10L)), parm = c(Inf, 9.11425188022861e-220, 3.71910588746475e-100, 2.59608869705031e+258, -1.55899169972677e-285, 2.46063845521267e+306, 4.12961325649888e+43, -4.59730582949234e-272, -3.23698401286355e-72, -3.27131499930051e-133, -11496.7851094923, 3.75798639495332e-227, 1.94024961483513e+282, 2.80229542809644e-276, 34409751217455.6, -3.05111912198567e-210, Inf, -1.86974277794159e+29, 2.95567832677578e-87, -8.9160653746952e+27, 6.40212363477174e+219, -6.23954587856883e-90, Inf, 2.51935418026587e-299, -1445961.78708124, -5.31142515123782e+289, -1.1552839883496e+51, 5.30788162373156e+242, -2.86107128296909e-96, 1.11406184743587e+20, -1.10271277438106e-119, 4.62346967422056e-125, -1.62094105916311e+143, -8.48046891894456e-277, 2.16302045580062e-91, 1.12390806560882e+302, -6.19977810090438e+38, 0), Xmat = structure(c(4.78291239730044e-25, 7.25323541647827e+287, 4.35578931182154e-251, 6.81808678605864e+192, 1.85434567827196e+88), .Dim = c(1L, 5L))) result <- do.call(icensmis:::loglikC,testlist) str(result)