# Example 1: Exponential distribution
set.seed(123)
x <- rexp(100, rate = 2)
qq.plot(x, qexp, list(rate = 2))
# Example 2: Customizing the fitted line
qq.plot(x, qexp, list(rate = 2),
fit.line = TRUE)
# Example 3: Without regression line
qq.plot(x, qexp, list(rate = 2), fit.line = FALSE)
# Example 4: Display regression equation and R-square value
qq.plot(x, qexp, list(rate = 2), fit.line = TRUE)
# Example 5: For a user defined distribution
# Exponentiated Exponential Power (EEP) Distribution
#Data
x <- waiting
qq.plot(x,
params = list(alpha=0.3407, lambda=0.6068, theta=7.6150),
qfun = qgen.exp.power, fit.line=TRUE)
Run the code above in your browser using DataLab