# NOT RUN {
pd <- ewens.pitman.attraction(
mass(1),
discount(0.05),
attraction(permutation(n.items=50,fixed=FALSE),
decay.exponential(temperature(1.0),dist(scale(USArrests)))))
mean(nsubsets.random(pd,1000))
nsubsets.average(pd)
pde <- ewens(mass(1),50)
nsubsets.variance(pde)
nsubsets.probability(pde,4)
# }
Run the code above in your browser using DataLab