powered by
simcush(n, m, delta, shelter)
probcush
n<-200 m<-7 delta<-0.3 shelter<-3 simulation<-simcush(n, m, delta, shelter) plot(table(simulation), xlab="Ordinal categories", ylab="Frequencies")
Run the code above in your browser using DataLab