x <- seq(0.1, 5, 0.1)
dHL.inv.weib(x, 1.5, 0.8, 2)
pHL.inv.weib(x, 1.5, 0.8, 2)
qHL.inv.weib(0.5, 1.5, 0.8, 2)
rHL.inv.weib(10, 1.5, 0.8, 2)
hHL.inv.weib(x, 1.5, 0.8, 2)
#Data
x <- survtimes
gofic(x,
params = list(alpha=31.1650, beta=0.4213, lambda=45.5485),
dfun = dHL.inv.weib, pfun = pHL.inv.weib, plot=TRUE, verbose = TRUE)
pp.plot(x,
params = list(alpha=31.1650, beta=0.4213, lambda=45.5485),
pfun = pHL.inv.weib, fit.line=TRUE)
qq.plot(x,
params = list(alpha=31.1650, beta=0.4213, lambda=45.5485),
qfun = qHL.inv.weib, fit.line=TRUE)
Run the code above in your browser using DataLab