powered by
rancatmat(n, m, cat = 3)
transfmatcat
n<-500 m<-3 mat<-rancatmat(n,m,c(3,4,5)) # let's check the marginal distributions... apply(mat,2,tabulate) #... should be "quite" uniform
Run the code above in your browser using DataLab