| 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.