testlist <- list(M = structure(c(1.10772325087702e-41, 2.44482868293035e+297,  2.74332327032899e+261, 1.07438255616289e+67, 5.38046052872547e+298,  2.93467992891426e-64, 3.27384169779345e-236, 3.10549519974379e+130,  3.99718268176561e+166), .Dim = c(9L, 1L)))
result <- do.call(HDLSSkST:::rctab,testlist)
str(result)