R/mm.r

Defines functions mm

Documented in mm

mm <- function(ob, min.pr, max.pr){

  res <- ifelse(ob > max.pr, max.pr, ob) 
  res <- ifelse(res < min.pr, min.pr, res) 

  res
      
}

Try the GJRM package in your browser

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

GJRM documentation built on July 9, 2023, 7:15 p.m.