---
title: "ggplotly geoms"
author: "Carson Sievert"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(ggplot2)
library(plotly)
library(plyr)
library(flexdashboard)
# Make some noisily increasing data
set.seed(955)
dat <- data.frame(cond = rep(c("A", "B"), each=10),
xvar = 1:20 + rnorm(20,sd=3),
yvar = 1:20 + rnorm(20,sd=3))
```
geom_point
=======================================================================
Row
-----------------------------------------------------------------------
### Ejemplo 1
```{r binomial}
x = rbinom(100, 10, 0.05)
barplot(table(x), col="blue")
```
Row
------------------------------------------------------------------
### Ejemplo 2
Suponga que sólo 0.10% de todas las computadoras de cierto tipo experimentan fallas del
CPU durante el periodo de garantía. Considere una muestra de 10 000 computadoras. ¿Cuál es la
probabilidad de que más de 2 computadoras muestreadas tengan el defecto?
R/ $P(x>2) = 1 - p(x<=2)$
```{r probabilidad}
1-pbinom(2, 10000, 0.001)
```
Para calcular el promedio:
$E(x) = np$
```{r promedio}
10000*0.001
```
Para calcular la varianza:
$V(x) = np(1-p)$
```{r}
10000*0.001*(1-0.001)
```
Poisson
===================================================
Row
-------------------------------------------------------
### Ejemplo 1
```{r poisson}
y = rpois(200, lambda=120)
barplot(table(y), col="green")
```
### Ejemplo 2
El número de clientes que llega a un banco es
una variable aleatoria Poisson. Si el número
promedio es 120 por hora. ¿Cuál es la
probabilidad de que un minuto lleguen por lo
menos tres clientes?
R/ Primero se hace la conversión del lambda por minuto. Entonces:
$\lambda=2$
Con eso calculamos la probabilidad:
$P(x>=3) = 1-P(x<=2)$
```{r probabilidad2}
1-ppois(2, lambda=2)
```
Hipergeometrica
===================================================
Row
-------------------------------------------------------
### Ejemplo 1
Supónganse que se tienen 50 representantes de
cierto estado, en una convención política nacional,
de los cuales 30 apoyan el candidato A y 20 apoyan
el candidato B. Si se seleccionan aleatoriamente 5
representantes ¿Cuál es la probabilidad de que,
entre estos cinco, por lo menos 2 apoyen el
candidato A?
```{r hipergeometrica}
### N=50, K=30, n=5 (son de la diapositiva)
### m=30, n=20, k=5 (simbolos de R)
z = rhyper(100, 30, 20, 5)
barplot(table(z), col="lightblue")
```
