---
title: "TableroDistribuciones"
author: "Alejandra Bolaños"
date: "2024-04-24"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    theme: 
      version: 4
      bg: "#D2F7FF"
      fg: "#000000" 
      primary: "#9EECFF"
      navbar-bg: "#9EECFF"
---

```{r setup, include=FALSE}
library(flexdashboard)
```

BINOMIAL
==============================================
Row
----------------------------------------------
## BINOMIAL

```{r Binomial}
x= rbinom(100, 20, 0.5)
barplot(table(x), col="blue", main="Binomial(n=20, p=0.5)")
```

##PROBABILIDADES

Si X es el número de productos defectuosos en una muestra de 20
con probabilidad de éxito de 0.5. Calcule la probabilidad
de que existan 18 productos o menos defectuosos.

```{r BinomialProb}
 pbinom(18, 20, 0.5)

```

POISSON
==============================================
Row
----------------------------------------------
## POSSION

```{r Poisson}
x= rpois(100, lambda = 5)
barplot(table(x), col="pink", main="Poisson (lambda= 5)")

```

Row
------------------------------------------------------
## Calculo de probabilidad
El número de clientes que llega a un banco en 30 minutos, es
una variablea aleatoria poisson con 5 clientes en promedio.
¿Cuál es la probabilidad de que llegue 4 o menos en clientes
en 30 minutos?


```{r PoissonProba}
ppois(4, lambda = 5)

```

NORMAL
=========================================================
Row
---------------------------------------------------------
## Normal


```{r Normal}
x= rnorm(110, mean=0, sd=1)
hist(x, col="skyblue", main="Normal(mean=0, sd=1)")
```

Row
---------------------------------------------------------
## Probabilidades
Se tiene la variable coeficiente intelectual de la personas
la cuál distribuye normal con media de 100 y desviación estándar de 10. Calcule la probabilidad de que el coeficiente intelectual
de una persona al azar este entre 90 y 110.

```{r normProba}
pnorm(110, mean=100, sd=10) - pnorm(90, mean=100, sd=10)

```
EXPONENCIAL
==============================================
Row
----------------------------------------------
## EXPONENCIAL

```{r Exponencial}
x= rexp(100, rate=1/5)
hist(x,col="lightblue", main="Exponencial(100,rate= 1/5)")

```
Row
----------------------------------------------
## PROBABILIDADES


```{r ExponencialProb}
1-pexp(8, rate=1/5) 

```
Row
----------------------------------------------
## CAJAS

```{r CajasExponencial}
boxplot(x, col="purple", xlab="x",
        main="exponencial(theta=5)")

```

UNIFORME
==============================================
Row
----------------------------------------------
## UNIFORME


```{r Uniforme}
x= runif(100, min=50,max = 100)
hist(x,col="lightblue", main="Uniforme(100,min=50,max = 100)")

```

Row
----------------------------------------------
## CALCULO DE PROBABILIDADES


```{r UnifProba}
1-punif(3,min=0,max=4) 

```