testlist <- list(c = 1677544754L, csim = structure(c(5.44993123789242e+81,  5.08293688567168e+83, 2.30384044681701e-115, 2.79565695609886e-139,  271.653419426988, 4.89895852174271e-12, 9.11591048061102e-92,  9.70896247366261e+34, 2.39023028264505e+240, 5.45991941818398e+280,  1.36559729450364e+31, 6.64449798008481e+61, 3.95354565966842e-283,  7.43796841629214e+50, 4.15170931422245e-97), .Dim = c(5L, 3L)),      j = 1028464218L, k = 655478789L, M = 1858761748L, seq = c(-1.68889211036193e-230,      -2.99859312808106e-20, 7.42602981599776e-83, -2.20699456337212e+80,      5.39300820025287e-109, -2.60433834777616e+262, -2.66061497413069e-114,      -1.88228342231432e+282, 2.49396239552496e-132, -5.77077134358865e-152,      -3.12876870800765e+60, 3.95867773406368e+64, -2.63094562186982e+181,      8.2219910432945e-231, Inf, 1.98030234092457e+242, NaN, -Inf,      7.47271079504767e-257, -2.60433834777616e+262, 2.17666112900387e+46,      1.71315517458013e+260, 3.00566238423168e+99, -6.17036480839893e+277,      1.7380906258094e-181, 0))
result <- do.call(segmenTier:::ccor,testlist)
str(result)