powered by
simihg(n, m, theta)
probihg
n<-300 m<-9 theta<-0.4 simulation<-simihg(n, m, theta) plot(table(simulation), xlab="Number of categories", ylab="Frequencies")
Run the code above in your browser using DataLab