testlist <- list(Dmat = structure(c(1.61367467838771e+171, 2.37785950632184e+66, 9.94880264714248e-113, 2.9218108752209e-65, 1.82545007091989e-280, 4.65264832031733e+258, 4.49800927492023e-35, 9.81614365849084e-17, 9.69830263079829e-139, 9.16090836917352e-14, 2.66995136720014e+249, 6.01013332293677e+282, 5.78379936746244e+122, 9.66436724482293e-82, 9.24450729893933e-153, 1.46419917404769e-305, 6.43884434237598e-90, 1.7191029019514e-40, 1.12753462645488e+240, 2.29844470635133e-17, 1.82811260369121e+107), .Dim = c(3L, 7L)), parm = c(NaN, Inf, 1.13796601945373e-302, NaN, NA), x = c(-3.39632063331237e+60, 2.15813887017218e-65, 9.15092927361901e-218, Inf, -8.38987105719142e+241, -3.3525411488284e-46, 1.84212208049545e-86, -3.59913593833253e-14, -Inf, -1.06245468628297e-231, -4.35284781049845e-256, -1.79955643317914e+36, 1.40789644154245e+299, NaN, -2.91803610187193e-209, 1.76239253651888e+45, 5.4471822637414e-113, 6.9320851820414e+39, 6.90322213112704e-50, 2.81711630792618e-202, 1.1152323446766e+51, NaN, -1.08342900639049e-137, 2.06216990303213e-183, 9.05039385141198e+63, 1.17371587466157e+172, 1.92143309291965e+108, -9.10700365816822e-35, -2.14747290018206e+139, -4.12026769868085e+235, 0)) result <- do.call(icRSF:::loglikC,testlist) str(result)