Distribusi Binomial

Fungsi Massa Peluang (PMF)

n <- 10
p <- 0.3
prob_4 <- dbinom(4, size = n, prob = p)
prob_4

## [1] 0.2001209

mean_x <- n * p
sd_x   <- sqrt(n * p * (1 - p))
mean_x

## [1] 3

sd_x

## [1] 1.449138

x <- 0:n
y <- dbinom(x, size = n, prob = p)

barplot(y,
names.arg = x,
main = "Distribusi Binomial (n = 10, p = 0.3)",
xlab = "Jumlah Keberhasilan (x)",
ylab = "Probabilitas P(X = x)",
col = "skyblue",
border = "white")