library(prettydoc)
[PROBABILIDAD.jpg] (PROBABILIDAD.jpg)
curve(dexp(x), from=0, to=10)
x <- rbinom(20, 1, 0.5) x
## [1] 1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 0 1 0
table(x)
## x ## 0 1 ## 11 9