inst/snippet/mean-coins01.R

vals <- 0:4
probs <- c(1, 4, 6, 4, 1) / 16     # providing probabilities directly
sum(vals * probs)
sum(0:4 * dbinom(0:4, 4, 0.5))     # using the fact that X is binomial
rpruim/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.