R/expit.R

In lcomm/ltools: Helper Functions

#' Expit (Inverse logit)
#' 
#' Function to calculate the inverse-logit (or expit) 
#' expit(x) = e^x/(1 + e^x) = 1/(1 + e^(-x))
#' More numerically stable if you calculate the function
#' differently based on whether x is positive or negative
#' Note: changing to simpler (faster) evaluation using plogis
#' @param input Argument to the inverse logit function
#' @keywords inverse-logit
#' @export
#' @examples
#' ## Single value
#' expit(5)
#' ## Matrix of values
#' expit(matrix(1:4,2,2))
#' 
expit <- plogis