x <- seq(1.0, 5, 0.25)
dhc.chen(x, 2.0, 0.5, 2.5)
phc.chen(x, 2.0, 0.5, 2.5)
qhc.chen(0.5, 2.0, 0.5, 2.5)
rhc.chen(10, 2.0, 0.5, 2.5)
hhc.chen(x, 2.0, 0.5, 2.5)
# Data
x <- conductors
# ML estimates
params = list(beta=0.9753, lambda=0.0398, theta=29.0272)
#P–P (probability–probability) plot
pp.plot(x, params = params, pfun = phc.chen, fit.line=TRUE)
#Q-Q (quantile–quantile) plot
qq.plot(x, params = params, qfun = qhc.chen, fit.line=TRUE)
# Goodness-of-Fit(GoF) and Model Diagnostics
res <- gofic(x, params = params,
dfun = dhc.chen, pfun=phc.chen, plot=FALSE)
print.gofic(res)
Run the code above in your browser using DataLab