R/isok.R

isok <- function(x, bounds) {
  il <- min(x >= bounds[, 1])
  iu <- min(x <= bounds[, 2])
  isok <- min(il, iu)
  lisok <- (isok == 1)
  lisok
}

Try the rImfil package in your browser

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

rImfil documentation built on May 2, 2019, 4:46 p.m.