> r <- 3 > n <- 10 > dbinom(1:10, size=10, prob=0.4)[3] * r / n [1] 0.06449725 >
> r <- 4 > n <- 6 > p <- 0.7 > dbinom(1:n, size=n, prob=p)[r] * r / n [1] 0.21609 >
> r <- 3 > n <- 5 > p <- 1/4 > dbinom(1:n, size=n, prob=p)[r] * r / n [1] 0.05273438 > dbinom(1:n, size=n, prob=p)[r] * r / n * 2 #蠍磯.. 覃 or 結伎企 2襯 螻燕伎 覿.. [1] 0.1054688 >