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
modeTriBin <- EstMLETriBin(No.D.D,Obs.fre.1)$mode #assigning the extracted the mode value
#fitting when the random variable,frequencies,mode value are given.
results <- fitTriBin(No.D.D,Obs.fre.1,modeTriBin)
results
#extract AIC value
AIC(results)
#extract fitted values
fitted(results)
Run the code above in your browser using DataLab