Tarea 4

1. 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.

library(leaflet) #llamar la libreria
coord <- data.frame(  #crear data frame con las coordenadas de los parques
    site = c(
        "Parque Nacional Corcovado",
        "Parque Nacional Piedras Blancas",
        "Reserva Forestal Golfo Dulce"),
    
    lat = c(8.547528551969336, 8.710693823638461, 8.758213595027161),
    
    long = c(-83.56921926251411,-83.27212852407732,-83.48570203348366),
    
    stringsAsFactors = TRUE
)

head(coord)

##                              site      lat      long
## 1       Parque Nacional Corcovado 8.547529 -83.56922
## 2 Parque Nacional Piedras Blancas 8.710694 -83.27213
## 3    Reserva Forestal Golfo Dulce 8.758214 -83.48570

ll_map <- leaflet()

ll_map <- addTiles(map = ll_map)

ll_map <-

  setView(

    map = ll_map,

    lat = 8.547528551969336,

    lng = -83.56921926251411,

    zoom = 10.4

  )

addPopups(

  map = ll_map,

  lat = coord$lat,

  lng = coord$long,

  popup = coord$site

) #crear mapa 

leaflet(coord) %>% addTiles() %>% setView(-83.56921926251411, 8.547528551969336, 10.4) %>% addAwesomeMarkers(~
                                                                                                                 long, ~ lat, popup = ~ site) 

### 2. Utilice el paquete DT para generar un cuadro (tabla) de los datos iris. La tabla debe verse igual a esta:


```r
 library (DT) #llamar la libreria
 datatable(iris) #la funcion datatable de la libreria DT crea una tabla como la que se solicita en este punto 

3. 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):

El coeficiente de correlación de Pearson entre largo de pétalo y ancho de pétalo es de 0.96

el coeficiente de correlacion se agrego al texto usando el codigo round(cor(iris$Petal.Length, iris$Petal.Width), 2)

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

TAREA4