# Quantile function of an Exponential model
Qexp <- function(theta, tau, data){
qexp(tau, exp(theta))
}
y <- rexp(100, exp(1))
m1 <- Qest(y ~ 1, Q = Qexp, start = NA)
summary(m1)
summary(m1, covar = TRUE)
Run the code above in your browser using DataLab