R/mm.r

In egeminiani/GJRM: Generalised Joint Regression Modelling

Defines functions mm

Documented in mm

mm <- function(ob){

  epsilon <- sqrt(.Machine$double.eps)
  max.p   <- 0.9999999

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

  res
      
}