library(prettydoc)
Probabilidad de un evento
curve(dexp(x), from=0, to=10)
x<- rbinom(20, 1, 0.5)
table(x)
## x ## 0 1 ## 7 13