Skip to content

Instantly share code, notes, and snippets.

@stephenturner
Created November 23, 2010 21:18
Show Gist options
  • Save stephenturner/712556 to your computer and use it in GitHub Desktop.
Save stephenturner/712556 to your computer and use it in GitHub Desktop.
logisticcurve.r
x=seq(-5,5,.01)
invlogit=function(x) exp(x)/(1+exp(x))
y=invlogit(x)
plot(x,y,pch=16,ylab=expression(paste(logit^{-1},(x))))
abline(v=0)
abline(h=.5)
text(.55,.55,expression(paste("Slope is ",beta/4)),adj=c(0,0))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment