R/mmf.r

Defines functions mmf

Documented in mmf

mmf <- function(ob){
  
  sob   <- sign(ob)
  max.p <- 0.9999999
  ob    <- abs(ob)

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

  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.