testlist <- list(samp_mat = c(2.8946e-22, -310830000, 4.354e+163, 4.8628e-274,  147.93, 1.2682e+97, -1.6189e-24, -4.1575e+120, -5.108e+163, -8.2177e-278,  1.3409e-267, -2.0297e-147, 2.507e+93, 1.2377e+65, -8.6771e-74,  -1.6042e-129, -2.3459e+214, 463530, -2.8508e-254, -5.2753e-112,  7.428e+69, 2.6071e+255, 5.7639e-64, 8.2972e-304, 3.5361e-218,  -1.178e-244, -1.3632e-127, 1.4478e+76))
result <- do.call(BAMBI:::calc_corr_tau_2,testlist)
str(result)