Para calcular la probabilidad primero se define el número de familias y la probabilidad de que una familia sea hipercolesterolémica. Después se definen los límites del rango. Luego se calcula la probabilidad de cada límite, en el caso del límite mínimo se resta 1 para que el 15 esté incluido. Por último se hace la resta de los límites para sacar la probabilidad y se multiplica por 100 para tener el porcentaje.
n <- 300
p <- 0.0317
k_min <- 15
k_max <- 35
prob_35 <- pbinom(k_max, size = n, prob = p)
prob_15 <- pbinom(k_min - 1, size = n, prob = p)
prob <- prob_35 - prob_15
print(prob)## [1] 0.05738808print(prob * 100)## [1] 5.738808