3.38 Histogram dla funkcji prawdopodobieństwa - rozkład dwumianowy (1)

library(ggplot2)

# Generujemy próbę.
Z <- seq(0,4,by = 1)

# Dla próby obliczamy prawdopodobieństwa.
P <- dbinom(Z,4,0.25)

binom_data <- data.frame(Z, P) # Łączymy zmienne Z i P
head(binom_data)

##   Z          P
## 1 0 0.31640625
## 2 1 0.42187500
## 3 2 0.21093750
## 4 3 0.04687500
## 5 4 0.00390625