No.D.D <- 0:7 #assigning the random variables
Obs.fre.1 <- c(47,54,43,40,40,41,39,95) #assigning the corresponding the frequencies
if (FALSE) {
#assigning the estimated probability value
paddbin <- EstMLEAddBin(No.D.D,Obs.fre.1)$p
#assigning the estimated alpha value
alphaaddbin <- EstMLEAddBin(No.D.D,Obs.fre.1)$alpha
#fitting when the random variable,frequencies,probability and alpha are given
results <- fitAddBin(No.D.D,Obs.fre.1,paddbin,alphaaddbin)
results
#extracting the AIC value
AIC(results)
#extract fitted values
fitted(results)
}
Run the code above in your browser using DataLab