---
title: "tablero 1 uni"
author: "emilio"
date: "2024-05-16"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

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


Estadisticas
====================================================

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

### Estadisticas Descriptiva del Conjunto de Datos iris.

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


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

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

### Histograma Sepal.Length

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

### Histograma Sepal.Length

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

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

### Histograma Petal.Length

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

### Histograma Petal.Width

```{r hist4}
hist(iris$Petal.Width, col="gold")
```


Diagrama de Cajas
====================================================
Row
----------------------------------------------------

### Diagrama de Cajas Sepal.Length

```{r cajas1}
boxplot(iris$Sepal.Length, col="red")
```


Correlaciones
=================================================
Row
-------------------------------------------------
### Correlaciones entre las variables.

```{r cor}
cor(iris[,-5])
```










Conclusiones
==================================================
Row
--------------------------------------------------
### Conclusiones

* Se encontraron correlaciones altas entre las variables.

* Se encontraron datos atípicos en la variable Sepal.Length