testlist <- list(dateT = 1.33573037939543e+131, delta_t = 9.71099715760534e+302,      pi = 1.61280615902094e+47, pOff = -8.35504919315639e+160,      rOff = -2.73889359948962e+40, scGen = -1.79755573827491e+270,      scSam = 4.8554118726596e-90, shGen = -8.15794538181756e-190,      shSam = 1.08997927183237e+157, ttree = structure(c(4.1298049640147e+238,      2.71966756304428e-179, 6.30107911483082e+122, 1.60507333850362e-301,      4.39557183837246e-282, 4.414041766788e+255, 3.39258551253414e+226,      1.12392649767306e+180, 5.43441176054097e+95, 3.2830565128796e-205,      8.82801665609907e-35, 4.11097260986984e+256, 3.6871639181176e+59,      4.8014187231062e+289, 1.5553232489404e+124, 7.21090972133832e+167,      1.21927667280579e-30, 5.03053311566947e-24, 7.83253792529262e+209,      9.0151856789183e+201, 1.4849886872914e+147, 4.70028464805604e-41,      2.50736189386241e-158, 2.7698157926011e+63, 8.38499764476704e+86,      3.44358179728061e-35, 1.0937749887958e+151, 4.976044356978e+305,      2.60773641332601e+241, 2.29754804265901e-39), .Dim = 5:6))
result <- do.call(TransPhylo::probTTree,testlist)
str(result)