Objetivo

Calcular densidad y probabilidades de cualquier distribuciones Binomial, Poisson Hipergeométrica Normal, Normal Estándar y T Student

Descripción

Calcular densidad y probabilidades de las distribuciones con variables continuas continuas Binomial, Poisson Hipergeométrica con variables discretas y Normal, Normal Estándar, T Student con variables continuas continuas.

Desarrollo

Cargar librerías

library(ggplot2)
library(mosaic)
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.
## 
## Attaching package: 'mosaic'
## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally
## The following object is masked from 'package:Matrix':
## 
##     mean
## The following object is masked from 'package:ggplot2':
## 
##     stat
## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var
## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum

Binomial

¿Cuál es el valor de x = 5, cuando la probabilidad de éxito es de 60% de una distribución binimial que tiene 10 observaciones?

dens <- dbinom(x = 5, size = 10, prob = 0.60)
dens
## [1] 0.2006581
plotDist('binom', params = list(10, 0.60))

¿Cuál es el valor de x = 7, cuando la probabilidad de éxito es de 60% de una distribución binomial que tiene 10 observaciones?

dens <- dbinom(x = 7, size = 10, prob = 0.60)
dens
## [1] 0.2149908

¿Cuál es el valor de x = 6, cuando la probabilidad de éxito es de 40% de una distribución binomial que tiene 12 observaciones?

dens <- dbinom(x = 6, size = 12, prob = 0.40)
dens
## [1] 0.1765791
plotDist('binom', params = list(12, 0.40))

La probabilidad de que una persona de en el blanco con un arco es de 0.25% (éxito)

¿Cuál es la probabilidad de que haciendo 10 intentos le atine al tercer intento x = 3?

dens <- dbinom(x = 3, size = 10, prob = 0.25)
dens
## [1] 0.2502823
plotDist('binom', kind = "cdf", params = list (10, 0.25))

¿Cuál es la probabilidad de que haciendo 10 intentos le atine cuando mucho a tres o le atine máximo en tres ocasiones? x<=3

prob <- pbinom(q = 3, size = 10, prob = 0.25)
prob
## [1] 0.7758751
plotDist('binom', kind = "cdf", params = list(10, 0.25))

¿Cuál es la probabilidad de que haciendo 10 intentos le atine cuando menos a 4 ocasiones? x>=4

prob <- pbinom(q = 4, size = 10, prob = 0.25, lower.tail = FALSE)
prob
## [1] 0.07812691
plotDist('binom', params = list(10, 0.25))

Poisson

¿Cuál es el valor de la densidad de x = 2 en una distribución de Poisson cuando la media es igual a 4?

dens <- dpois(x = 2, lambda = 4)
dens
## [1] 0.1465251
plotDist(dist = "pois", kind = "density", params = list(4))

¿Cuál es el valor de la densidad de x = 5 en una distribución de Poisson cuando la media es igual a 4?

dens <- dpois(x = 5, lambda = 4)
dens
## [1] 0.1562935
plotDist(dist = "pois", kind = "density", params = list(4))

¿Cuál es el valor de la probabilidad acumulada x ≤ 5 en una distribución de Poisson cuando la media (lambda λ) es igual a 4?

prob <- ppois(q = 5, lambda = 4)
prob
## [1] 0.7851304
plotDist(dist = "pois", kind ="cdf", params = list(4))

¿Cuál es el valor de la probabilidad acumulada x ≤ 7 en una distribución de Poisson cuando la media (lambda λ) es igual a 4?

prob <- ppois(q = 7, lambda = 4)
prob
## [1] 0.9488664
plotDist(dist = "pois", kind = "cdf", params = list(4))

Normal

Normal Estándar

T Student

Interpretación

Bibliografía