R/add_EVID.R

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

add_EVID <- function(d1) {
  # trying to implement EVID if not presented
  rowsWithObs <- !is.na(d1$ObsName)
  if ("EVID" %in% colnames(d1)) {
    d1$EVID[rowsWithObs] <- 0
    # prevent any NAs in EVID
    d1$EVID[is.na(d1$EVID)] <- 2
  } else {
    # create EVID column
    d1$EVID <- 2
    d1$EVID[rowsWithObs] <- 0
  }

  d1
}