No.D.D <- 0:7 #assigning the random variables
Obs.fre.1 <- c(47,54,43,40,40,41,39,95) #assigning the corresponding frequencies
#estimating the parameters using maximum log likelihood value and assigning it
parameters <- EstMLEGHGBB(No.D.D,Obs.fre.1,0.1,20,1.3)
bbmle::coef(parameters) #extracting the parameters
aGHGBB <- bbmle::coef(parameters)[1] #assigning the estimated a
bGHGBB <- bbmle::coef(parameters)[2] #assigning the estimated b
cGHGBB <- bbmle::coef(parameters)[3] #assigning the estimated c
#fitting when the random variable,frequencies,shape parameter values are given.
results <- fitGHGBB(No.D.D,Obs.fre.1,aGHGBB,bGHGBB,cGHGBB)
results
#extracting the expected frequencies
fitted(results)
#extracting the residuals
residuals(results)
Run the code above in your browser using DataLab