x <- seq(0.1, 1, 0.1)
dinv.ubd(x, 1.5, 0.8, 2)
pinv.ubd(x, 1.5, 0.8, 2)
qinv.ubd(0.5, 1.5, 0.8, 2)
rinv.ubd(10, 1.5, 0.8, 2)
hinv.ubd(x, 1.5, 0.8, 2)
#Data
x <- rainfall
#ML Estimates
params = list(alpha =0.1804, beta=4.3216, lambda=85.13)
#P–P (probability–probability) plot
pp.plot(x, params = params, pfun = pinv.ubd, fit.line=TRUE)
#Q-Q (quantile–quantile) plot
qq.plot(x, params = params, qfun = qinv.ubd, fit.line=TRUE)
# Goodness-of-Fit(GoF) and Model Diagnostics
out <- gofic(x, params = params,
dfun = dinv.ubd, pfun = pinv.ubd, plot=FALSE)
print.gofic(out)
Run the code above in your browser using DataLab