inst/extdata/CodeLibrary/R/convert.to.na.R

In NMproject: Script Based 'NONMEM' Model Development

#' Replace -99 with NA in dataset.
#' 
#' @param d Dataset.
#' @param replace Missing code to replace.  Default is -99.
#' 
#' @export

convert.to.na <- function(d,replace=-99){
  names <- names(d)[which(sapply(seq_along(d),function(i)replace %in% d[,i]))]
  d[names][d[names] == replace] <- NA
  d
}