fexpit {biscuiteer} | R Documentation |
Helper function: expanded expit
fexpit(x, sqz = 1e-06)
x |
a vector of values between -Inf and +Inf |
sqz |
the amount by which we 'squoze', default is .000001 |
a vector of values between 0 and 1 inclusive
set.seed(1234) x <- rnorm(n=1000) summary(x) sqz <- 1 / (10**6) p <- fexpit(x, sqz=sqz) summary(p) all( (abs(x - flogit(p)) / x) < sqz ) all( abs(x - flogit(fexpit(x))) < sqz )