Bayesian Inference Help

Without a reprex. See the FAQ, I have to guess. If you simply need 10 more responses

addn <- sample(1,0,10,replace = TRUE)