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 mode value for given data
results<-EstMLETriBin(No.D.D,Obs.fre.1)
results
mode<-results$mode
#fitting the Triangular Bionomial distribution for estimated parameters
TriBin<-fitTriBin(No.D.D,Obs.fre.1,mode)
TriBin
#extracting the overdispersion
Overdispersion(TriBin)
Run the code above in your browser using DataLab