R/utility.R

In SamPassmore/bayestraitr: Functions for improving workflow between Bayestraits and R

Defines functions print.bt_model print.bt_stones print.bt_log

print.bt_log = function(x){
  print(x$output)
}

print.bt_stones = function(x){
  cat("Marginal Log-likelihood: ", x$marginal_likelihood)
}

print.bt_model = function(x){
  cat(x)
}