K=50 #number of clusters
n=5 #size of each cluster
N=n*K
set.seed(1)
clu=rep(c(1:K),each=n)
parC = 2
parM=matrix(c(1,-1,0.5,2),byrow=TRUE,ncol=2)
xm = runif(N)
y=SimMultinomial(parC,parM,clu,xm=xm,family="clayton",rot=90)
Run the code above in your browser using DataLab