testlist <- list(x = structure(c(1.02532483752325e+261, 1.46340296343369e+288, 5.67165037573218e-306, NA, 5.43908332228391e-105, 1.12756429789692e-57, Inf, 4.85713114047829e-272, Inf, 3.30698101927463e+94, NaN, 4.12846164752131e-51, Inf, 61.3402689356117, 6.30846847410014e-13), .Dim = c(5L, 3L ))) result <- do.call(MuChPoint::Compute_Cn1n2,testlist) str(result)