---
title: "Tablero"
author: "Juan Becerra y Juan Betancourt"
date: "2024-10-16"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup}
library(flexdashboard)
```

Datos
=======================================================================

Row
-----------------------------------------------------------------------

### Datos

El conjunto de datos Iris tiene 150 muestras y 5 variables. Las primeras 
4 variables son cuantitativas y la última es cualitativa. 

```{r data}
data(iris)
summary(iris)
```


Histogramas 
=======================================================================

Row 
-----------------------------------------------------------------------

 
### Histograma 1


```{r hist}
hist(iris$Sepal.Length, col="blue")
```


### Histograma 2 

```{r hist2}
hist(iris$Sepal.Width, col="red")
```

### Histograma 3
```{r hist3}
hist(iris$Petal.Length, col="gold")
```


### Histograma 4 
```{r hist4}
hist(iris$Petal.Width, col="gray")
```

Cajas
=======================================================================

Row 
-----------------------------------------------------------------------

 
### Diagrama de Caja 1
```{r}
boxplot(iris$Sepal.Length, col="blue")
```

### Diagrama de Caja 2
```{r}
boxplot(iris$Sepal.Width, col="purple")
```

### Diagrama de Caja 3

```{r}
boxplot(iris$Petal.Length, col="green")
```

### Diagrama de Caja 4
```{r}
boxplot(iris$Petal.Width, col="brown")
```

Correlación
=======================================================================

Row 
-----------------------------------------------------------------------

### Matriz de correlación 
```{r correal}
cor(iris[,1:4])
```

Conclusiones
=======================================================================

Row 
-----------------------------------------------------------------------

### Conclusiones 
* Primera conclusion 
* Segunda conclusion