! ESTADISTICA1011
curve(dexp(x), from=0, to=10)
x <- rbinom(20, 1, 0.5) x
## [1] 0 0 1 0 0 0 0 0 1 1 0 1 1 1 0 0 0 1 0 1
table(x)
## x ## 0 1 ## 12 8
install(pettydoc)