R/ok.R

Defines functions ok

Documented in ok

### ok.R

ok <- function(x) {
  ## Author: Rene Locher
  ## Version: 2005-10-17
  if (is.logical(x)) {
    x[is.na(x)] <- FALSE
    return(x)
  } else
  stop("'x' must be logical!\n")
} ## ok

Try the IDPmisc package in your browser

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

IDPmisc documentation built on Jan. 21, 2020, 5:06 p.m.