testlist <- list(obs = structure(c(6.99975302674804e+149, 2.90965742186732e-229,  2.75658526536909e+233, 1.30990001247696e-194, 4.04576792954698e+22,  3.2682793225858e-69, 1.60603358933383e+156, 6.03530090292496e-283,  3.10516243301151e+96, 2.82073019537847e-231, 1.12550092235946e-285,  1.76426027712289e-130, 2.48244426856888e+301, 1.82551650260985e-32,  2.71090293289334e-185, 5.64617457387137e-238, 3.08146677478217e-95,  6.00308284996642e+156), .Dim = c(3L, 6L)), pi0 = c(5.40812615103701e-210,  -27.3599326241903, 3.49653672561843e-30, -1.68488401145172e+215,  1.64547517509688e-131, -2.6396008333023e+91, 4.29974098815215e-173,  NaN, Inf, NA, 4.92144146344342e-104, -1.6689456771057e-124, -1.01653421736009e-151,  -Inf, -1.06982081651515e+62, 0))
result <- do.call(rankdist:::FindCayley,testlist)
str(result)