logit4.r

png("Log", width=6,height=7)
x = seq(0.00001,0.9999,length = 100)
logit<-function(t)
  {
  log(t/(1-t))
      }
curve(logit(x),col = "tomato",lwd = 2)
curve(qnorm(x),col = "blue",lwd = 2,add=T)
curve(log(-log(1-x)),col = "purple",lwd = 2,add=T)
a=par("usr")
legend(a[1],a[4], c("logit","probit","log-log"), col = c("tomato","blue","purple"),lty=1)
dev.off()