# NOT RUN {
pd1 <- ewens(mass(1),50)
decay <- decay.exponential(temperature(1.0),dist(scale(USArrests)))
attraction <- attraction(permutation(n.items=50,fixed=FALSE), decay)
pd2 <- ewens.pitman.attraction(mass(1), discount(0.05), attraction)
pd3 <- ddcrp(mass(1), attraction)
# }
Run the code above in your browser using DataLab