01) lx <- exp(x)/(1+exp(x)) px <- pnorm(x) cx <- 1-exp(-exp(x)) svg("linkfunction.svg", width=10, height=5) plot(range(x), c(0,1), type="n", ylab=expression(paste("P("...
