Tarea 4

Cree un mapa interactivo con leaflet que muestre el Parque Nacional Corcovado, el Parque Nacional Piedras Blancas y la Reserva Forestal Golfo Dulce (pista: pueden encontrar las coordenadas usando google maps). Para cada sitio añada un marcador usando la función de leaftlet addAwesomeMarkers. El mapa debe ser similar a este:
```
library(leaflet)

#Establecer las coordenadas en variables
corcovado <- c(-83.5850, 8.5376)  
piedras_blancas <- c(-83.2879, 8.7071) 
golfo_dulce <- c(-83.4419, 8.7136)

m <- leaflet() %>%
  addTiles() %>%  
  setView(lng = mean(c(corcovado[1], piedras_blancas[1], golfo_dulce[1])), 
          lat = mean(c(corcovado[2], piedras_blancas[2], golfo_dulce[2])), 
          zoom = 9) %>%  # Permite establecer la vista inicial centrada en los 3 puntos
  addAwesomeMarkers(lng = corcovado[1], lat = corcovado[2], 
                    label = "Parque Nacional Corcovado") %>%
  addAwesomeMarkers(lng = piedras_blancas[1], lat = piedras_blancas[2], 
                    label = "Parque Nacional Piedras Blancas") %>%
  addAwesomeMarkers(lng = golfo_dulce[1], lat = golfo_dulce[2], 
                    label = "Reserva Forestal Golfo Dulce")

m
```
Utilice el paquete DT para generar un cuadro (tabla) de los datos iris.
```
library(DT)
datatable(iris[, -5],  # Excluir la columna "Species"
          )
```

Incruste el resultado de la correlación en una línea de texto (fuera de un bloque de código). Debe verse así (recuerde redondear):

#Correlación
cor_valor <-cor(iris$Petal.Length, iris$Petal.Width)
#En el texto
cor_texto <- paste("El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de", round(cor_valor, 2))
print(cor_texto)

## [1] "El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de 0.96"

Publique el reporte en Rpubs y añada el enlace en el reporte (use un enlace en el texto).

R Notebook

Tarea 4