R/mm.r

Defines functions mm

Documented in mm

mm <- function(ob){

  epsilon <- 0.0000001 
  max.p   <- 0.9999999

  res <- ifelse(ob > max.p, max.p, ob) 
  res <- ifelse(res < epsilon, epsilon, res) 

  res
      
}

Try the JRM package in your browser

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

JRM documentation built on July 13, 2017, 5:03 p.m.