R/get_term.R

In Certara.Xpose.NLME: Enhances 'xpose' Diagnostics for Pharmacometric Models from 'Certara.RsNLME' and Phoenix NLME

get_term <- function(retCode) {
  term <-
    dplyr::case_when(
      retCode == 0 ~ "Evaluation only",
      retCode == 1 ~ "Convergence achieved",
      retCode == 2 ~ "Convergence achieved",
      retCode == 3 ~ "Convergence achieved",
      retCode == 4 ~ "Max No of iterations achieved",
      retCode == 5 ~ "Internal failure",
      retCode == 6 ~ "Manually terminated",
      retCode == 7 ~ "Inappropriate function values"
    ) %>%
    paste0(", retcode ", retCode)

  term
}