n <- 15 #15 adultos la muestra aletoria
p <- 0.3 #La probabilidad de seleccionar un fumador en una sola selección es del 30%, o 0.3.
(sum(dbinom(6:9, n, p)))*100
## [1] 27.4726
pbinom(9, n, p)-pbinom(5, n, p)
## [1] 0.274726
R/Por lo tanto, la probabilidad de que el número de fumadores en la muestra sea mayor que 5 pero menor que 10 es de aproximadamente 27.47%
lambda <- 5
(ppois(7, lambda) - ppois(4, lambda))*100
## [1] 42.6135
La probabilidad de que en una manzana elegida aleatoriamente existieno entre cinco y siete ratas inclusive seria de un 42.6%
mu <- 11.5
sigma <- 3
x <- 10
(1-pnorm(x,mu,sigma))*100
## [1] 69.14625
La probabilidad de que la edad del niño sea mayor de 10 años es del 69.14%
(pnorm(250,140,50) - pnorm(200,140,50))*100
## [1] 10.11662
La probabilidad de que un individuo, elegido al azar entre esa población, tenga un total de surcos en los dedos entre 200 y 250 es de 10.11%