mu <- seq(0.1, 0.9, 0.1)
linkfcn(mu, 7, "binomial") # robit(7) link function
linkfcn(mu, "logit", "binomial") # logit link function
mu <- seq(-3, 3, 1)
linkfcn(mu, 0.5, "gaussian") # sqrt transformation
linkinv(linkfcn(mu, 0.5, "gaussian"), 0.5, "gaussian")
curve(linkfcn(x, 0.5, "gaussian"), -3, 3)
Run the code above in your browser using DataLab