R/get_method.R

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

get_method <- function(nlme7engineLines) {
  method <- "na"
  IDENGINEline <- nlme7engineLines[grep("IDENGINE", nlme7engineLines)]
  IDENGINENO <- unlist(strsplit(IDENGINEline, split = "\\W+"))[[2]]
  if (length(IDENGINENO) > 0) {
    method <- dplyr::case_when(
      IDENGINENO == 1 ~ "QRPEM",
      IDENGINENO == 2 ~ "IT2SEM",
      IDENGINENO == 3 ~ "FOCE-LB",
      IDENGINENO == 4 ~ "FO",
      IDENGINENO == 5 ~ "FOCE-ELS",
      IDENGINENO == 6 ~ "Naive-Poled"
    )
  }

  method
}