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 May 2, 2019, 1:43 p.m.