R/make_plot_title_expr.R

In TheoPannetier/DDvTDtools: Compare diversity-dependent (DD) and time-dependent (TD) diversification models

make_plot_title_expr <- function(para) {
  crown_age <- para_to_pars(para)[1]
  lambda <-  para_to_pars(para)[2]
  mu <-  para_to_pars(para)[3]
  k <-  para_to_pars(para)[4]
  title <- bquote(
    "Age"       ~ "="  ~ .(crown_age) ~
    lambda[0]   ~ "="  ~ .(lambda)    ~
    mu[0]       ~ "="  ~ .(mu)        ~
    K           ~ "="  ~ .(k)
  )
  return(title)
}