#Script para arboles 

library(mapview)
## Warning: package 'mapview' was built under R version 3.6.1
library(raster)
## Warning: package 'raster' was built under R version 3.6.1
## Loading required package: sp
## Warning: package 'sp' was built under R version 3.6.1
pal = mapviewPalette("mapviewTopoColors")

Nogales <- raster("NDVI1.tif", package = "mapview")
NogalNDVI <- stack(Nogales)

mapview(NogalNDVI[[1]], col.regions = pal(100), at = seq(-0.2, 1, 0.2), legend = TRUE)
## Warning in rasterCheckSize(x, maxpixels = maxpixels): maximum number of pixels for Raster* viewing is 5e+05 ; 
## the supplied Raster* has 2971392 
##  ... decreasing Raster* resolution to 5e+05 pixels
##  to view full resolution set 'maxpixels =  2971392 '