R/helpers.R

In blm: Binomial Linear Regression

Defines functions nu ddexpit dexpit logit expit

Documented in expit logit

# DERIVATIVES WERE CHECKED AGAINST DERIV
expit <- function(x) exp(x)/(1+exp(x))
logit <- function(x) log(x/(1-x))
dexpit <- function(x) expit(x)*(1-expit(x))
ddexpit <- function(x) dexpit(x)*(1-2*expit(x))
nu <- function(x) x*(1-x)

Try the blm package in your browser