Encontrar probabilidades de acuerdo a la distribución binomial #### Descripcion Identificar dos casos de la literatura de distribuciones de probabilidad binomial y realizar cálculos de probabilidades utilizando la fórmula y las funciones dbinom() y pbinom(), identificar el valor medio, la varianza y la desviación. #### Fundamento teorico El experimento de lanzar al aire una moneda es un ejemplo sencillo de una importante variable aleatoria discreta llamada variable aleatoria binomial. Muchos experimentos prácticos resultan en datos similares a que salgan cara o cruz al tirar la moneda (Mendenhall et al., 2006)
Un experimento binomial es el que tiene estas cinco características:
El experimento consiste en n intentos idénticos. Cada intento resulta en uno de dos resultados. Por falta de un mejor nombre, el resultado uno se llama éxito, ‘S’, y el otro se llama fracaso, ‘F’. La probabilidad de éxito en un solo intento es igual a p y es igual de un intento a otro. La probabilidad de fracaso es igual a q=(1−p). Los intentos son independientes. El interés es el valor de x, o sea, el número de éxitos observado durante los n intentos, para x=0,1,2,…,n. (Mendenhall et al., 2006). Un experimiento de Bernoulli puede tener como resultado un éxito con probabilidad p y un fracaso con probabilidad q=1−p. Entonces, la distribución de probabilidad de la variable aleatoria binomial X, el número de éxito en n ensayos independientes (Walpole et al., 2012): Formula:
\(prob(x=k)=(nk)⋅pk⋅q(n−k)\)
Para:
\(x=0,1,2,3...n\)
y recordando las combinacones
\((nk)=n!k!⋅(n−k)!\)
El valor esperado está dado por:
\(μ=n⋅p\)
La varianza y la desviación estándard se determinan mediante: \(σ2=n⋅p⋅(1−p)\) y \(σ=σ2−−√\)
ºCargar librerías ºEjercicios ºEjercicio 1: Probabilidades, Varianza, Desviación ºEjercicio 2: Probabilidades, Varianza, Desviación ºInterpretación #### 1.Cargar libretas Se carga función de servicio github o de manera local
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union#source("../funciones/funciones.distribuciones.r")
# o
source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/funciones/funciones.distribuciones.r")De acuerdo con la experiencia, el gerente de la tienda estima que la probabilidad de que un cliente realice una compra es 0.30.
Identificar las probabilidad para cuando se compre 0,1,2,3, determinar la tabla de probabilidad incluyendo probabilidad cumulada ºEncontrar la probabilidad de que compren dos clientes ºEncontrar la probabilidad de que compren los tres próximos clientes. ºEncontrar la probabilidad de que sean menor o igual que dos. ºDeterminar el valor esperado y su significado ºDeterminar la varianza y la desviación estándar y si significado Interpretar a) Identificar las probabilidad para cuando se compre 0,1,2,3, determinar la tabla de probabilidad incluyendo probabilidad cumulada Inicializar valores
x <- c(0,1,2,3)
n <- 3
exito <- 0.30ºDeterminar tabla de probabilidad usando la función creada y conforme a la fórmula
tabla1 <- data.frame(x=x, f.prob.x = f.prob.binom(x,n,exito), f.acum.x = cumsum(f.prob.binom(x,n,exito)))
tabla1## x f.prob.x f.acum.x
## 1 0 0.343 0.343
## 2 1 0.441 0.784
## 3 2 0.189 0.973
## 4 3 0.027 1.000## x f.prob.x f.acum.x
## 1 0 0.343 0.343
## 2 1 0.441 0.784
## 3 2 0.189 0.973
## 4 3 0.027 1.000ºDeterminar tabla de probabilidad usando función propia de los paquetes base de r dbinom()
tabla2 <- data.frame(x=x, f.prob.x = dbinom(x = x, size = n, prob = exito), f.acum.x = cumsum(dbinom(x = x, size = n, prob = exito)))
tabla2## x f.prob.x f.acum.x
## 1 0 0.343 0.343
## 2 1 0.441 0.784
## 3 2 0.189 0.973
## 4 3 0.027 1.000## x f.prob.x f.acum.x
## 1 0 0.343 0.343
## 2 1 0.441 0.784
## 3 2 0.189 0.973
## 4 3 0.027 1.000valor.x <- 2
la.probabilidad <- filter(tabla1, x == valor.x)
la.probabilidad## x f.prob.x f.acum.x
## 1 2 0.189 0.973## x f.prob.x f.acum.x
## 1 2 0.189 0.973paste("La probabilidad cuando x es ", valor.x, " es igual a : ", la.probabilidad$f.prob.x )## [1] "La probabilidad cuando x es 2 es igual a : 0.189"## [1] "La probabilidad cuando x es 2 es igual a : 0.189"valor.x <- 3
la.probabilidad <- filter(tabla1, x == valor.x)
la.probabilidad## x f.prob.x f.acum.x
## 1 3 0.027 1## x f.prob.x f.acum.x
## 1 3 0.027 1paste("La probabilidad cuando x es ", valor.x, " es igual a : ", la.probabilidad$f.prob.x )## [1] "La probabilidad cuando x es 3 es igual a : 0.027"## [1] "La probabilidad cuando x es 3 es igual a : 0.027"valor.x <- 2
la.probabilidad <- filter(tabla1, x == valor.x)
la.probabilidad## x f.prob.x f.acum.x
## 1 2 0.189 0.973## x f.prob.x f.acum.x
## 1 2 0.189 0.973paste("La probabilidad de que sea menor o igual a ", valor.x, " es igual a : ", la.probabilidad$f.acum.x )## [1] "La probabilidad de que sea menor o igual a 2 es igual a : 0.973"## [1] "La probabilidad de que sea menor o igual a 2 es igual a : 0.973"Siendo p el éxito de la probabilidad * y n el número de experimentos
VE <- n * exito
paste ("El valor esperado es: ", VE)## [1] "El valor esperado es: 0.9"## [1] "El valor esperado es: 0.9"varianza <- n * exito *( 1 - exito)
paste ("La varianza es: ", round(varianza,2))## [1] "La varianza es: 0.63"## [1] "La varianza es: 0.63"ºLa desviación \(σ=σ2−−√\)
desviacion.std <- sqrt(varianza)
paste("La desviación std es: ", round(desviacion.std, 2))## [1] "La desviación std es: 0.79"## [1] "La desviación std es: 0.79"1.Determinar las probabilidad de los tiros del 1 al 6 con la tabla de probabilidad 2.Determinr la probabilidad de encestar cuatro tiros P(x=4) 3.Determinar la probabilidad de encestar todos tiros o sea seis P(x=6) 4.Determinar la probabilidad de encestar al menor tres P.acum(x=3) 5.Determinar el valor esperado VE 6.Determinar la varianza y su desviación estándard Interpretar el ejercicio.
La probabilidad de que un paciente se recupere de una rara enferme dad sanguínea es 0.4. Si se sabe que 15 personas contraen tal enfermedad,
Determine tabla de probabilidad de 1 al 15 1.¿Cuál es la probabilidad de que sobrevivan al menos diez, 2,¿Cuál es la probabilidad de que sobrevivan de tres a ocho, y 3.¿Cuál es la probabilidad de que sobrevivan exactamente cinco? 4.¿Cuál es el valor esperado ‘VE’ o la esperanza media? 5.¿Cual es la varianza y la desviación estándar? 6.Interpretración del ejercicio (Walpole et al., 2012). #### Referencias bibliograficas Anderson, D. R., Sweeney, D. J., & Williams, T. A. (2008). Estadística para administración y economía (10th ed.). Cengage Learning,
La distribución binomial o de bernoulli. (n.d.). https://www.profesor10demates.com/2014/04/la-distribucion-binomial-o-de-bernoulli_3.html
Mendenhall, W., Beaver, R. J., & Beaver, B. M. (2006). Introducción a la probabilidad y estadística (13a Edición).
Walpole, R. E., Myers, R. H., & Myers, S. L. (2012). Probabilidad y estadística para ingeniería y ciencias (Novena Edición). Pearson.