Code
yA <- c(1, 3); pA <- c(1/2, 1/2)
yB <- c(0, 2, 4); pB <- c(1/8, 3/4, 1/8)
mom <- function(y, p, k, about = 0) sum((y - about)^k * p)
data.frame(k = 1:4,
A_origin = sapply(1:4, \(k) mom(yA, pA, k)),
B_origin = sapply(1:4, \(k) mom(yB, pB, k)),
A_central = sapply(1:4, \(k) mom(yA, pA, k, 2)),
B_central = sapply(1:4, \(k) mom(yB, pB, k, 2))) k A_origin B_origin A_central B_central
1 1 2 2 0 0
2 2 5 5 1 1
3 3 14 14 0 0
4 4 41 44 1 4

