# NOT RUN {
partitions <- matrix(c(0,0,0,0,0,
0,0,0,0,1,
0,0,0,1,2,
0,0,1,2,3,
0,1,2,3,4), ncol = 5, nrow = 5, byrow = TRUE)
# discount = 0 shows higher probability for lower quantity of components
dCRP(partitions, mass = 1, discount = 0, log = FALSE)
# discount = 0.5 shows higher probability for higher quantity of components
dCRP(partitions, mass = 1, discount = 0.5, log = FALSE)
# }
Run the code above in your browser using DataLab