testlist <- list(idx = structure(c(1.47098597404504e+258, 1.11273113660978e+37,  2.39723539100778e+59, 1.40180850864607e-307, 2.23628865915437e-55,  5.46274538895459e+130, 3.73354200709744e-176, 5.03395531101393e+267,  3.22321231318001e-89, 4.36468600431586e+276, 1.37253864469738e+199,  1.86333154429045e-31, 1.21493011463327e-269, 1.95431024150472e+35,  8.72451868673281e+256, 2.49390409161868e+165, 1.87861514575607e+28,  6.66884180767745e+81, 4.89007495346232e+287, 1.65243759599731e+172,  3.21242989167605e-100, 2.20441737680389e-82, 3.61032536377277e+84,  1.58340297422794e-37, 6.36905514489924e-256, 6.6205642653344e-264,  2.25452070309537e-278, 189937430297.442), .Dim = c(4L, 7L)))
result <- do.call(iCellR:::jaccard_coeff,testlist)
str(result)