R/Utils.R

Defines functions na.omit_new

na.omit_new <- function(mX){
  if (is.na(mX[nrow(mX), 1])) {
    mX_new = rbind(na.omit(mX), mX[nrow(mX), ])
  } else {
    mX_new = na.omit(mX)
  }
  return(mX_new)
}

Try the eDMA package in your browser

Any scripts or data that you put into this service are public.

eDMA documentation built on June 8, 2025, 1:56 p.m.