Ejercicio de probabilidad binomial

Presentacion del problema

Un fabricante de focos afirma que el 5% de sus focos son defectuosos. Si se compran 50 focos al azar, ¿cuál es la probabilidad de que haya al menos 3 focos defectuosos?

Cargar datos

library("mosaic")
source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/2023/funciones/funciones%20para%20disribuciones%20de%20probabilidad.R")

Probabilidad de exito

[1] 0.2198748

Probabilidad de exito: al menos tres focos

[1] 0.4594669

Tamaño de la muestra

[1] "El tamaño de la muestra es de 3"

Identificar valor de x

[1] " El valor de X es de 1" " El valor de X es de 2" " El valor de X es de 3"

Tabla de distribucion

x <- 3; n <- 6; exito <- 0.05

resultado <- f.binom.all(n = n, exito = exito)

tabla <- resultado$tabla
tabla

  x            f.x       F.x
1 0 0.735091890625 0.7350919
2 1 0.232134281250 0.9672262
3 2 0.030543984375 0.9977702
4 3 0.002143437500 0.9999136
5 4 0.000084609375 0.9999982
6 5 0.000001781250 1.0000000
7 6 0.000000015625 1.0000000