R/prob.fun.R

Defines functions prob.fun

prob.fun<-function(a){
  if(is.infinite(exp(a))){
    if(a>0){
      return(1)
    }else{
      return(0)
    }
  }else{
    return(exp(a)/(1+exp(a)))
  }
}
Iuliana-Ionita-Laza/PO.EN documentation built on April 19, 2022, 7:10 a.m.