powered by
simcubshe(n, m, pai, csi, delta, shelter)
probcubshe1
probcubshe2
probcubshe3
n<-300 m<-9 pai<-0.7 csi<-0.3 delta<-0.2 shelter<-3 simulation<-simcubshe(n, m, pai, csi, delta, shelter) plot(table(simulation), xlab="Ordinal categories",ylab="Frequencies")
Run the code above in your browser using DataLab