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
if (FALSE) {
#estimating the probability value and alpha value
results <- EstMLEAddBin(No.D.D,Obs.fre.1)
#printing the summary of results
summary(results)
#extracting the estimated parameters
coef(results)
}
Run the code above in your browser using DataLab