testlist <- list(c = 941934909L, csim = structure(c(8.14055341060344e+285,  1.14104242782854e+95, 2.12720649435241e-12, 1.03927031471047e-106,  4.17156144330838e-253, 1.09684173250477e-40), .Dim = 2:3), j = 969028049L,      k = -224081199L, M = -829644152L, seq = c(-2.90625097551243e-241,      Inf, -1.51128177843958e+88, Inf, 2.00898818645846e+209, NA     ))
result <- do.call(segmenTier:::icor,testlist)
str(result)