fexpit | 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 )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.