# NOT RUN {
data(ammonia, package = "ugomquantreg")
library(gamlss)
tau <- 0.50
fit.logit <- gamlss(stackloss ~ airflow + watertemp + acidconc, data = ammonia,
family = UGOM(sigma.link="identity"))
tau <- 0.50
fit.probit <- gamlss(stackloss ~ airflow + watertemp + acidconc,
data = ammonia, family = UGOM(mu.link = "probit", sigma.link = "log"))
fittaus <- lapply(c(0.10, 0.25, 0.50, 0.75, 0.90), function(Tau){
tau <<- Tau;
gamlss(stackloss ~ airflow + watertemp + acidconc, data = ammonia,
family = UGOM(mu.link = "logit", sigma.link = "log"))
})
sapply(fittaus, coef)
# }
Run the code above in your browser using DataLab