powered by
probbit(m, csi)
m<-7 csi<-0.7 pr<-probbit(m, csi) plot(1:m, pr, type="h", main="Shifted Binomial probability distribution",xlab="Categories") points(1:m,pr,pch=19)
Run the code above in your browser using DataLab