```r
heikki.basemap <- stack("HeikkiDeLorme.tif")
plotRGB(heikki.basemap)
with(heikki2003, lines(x,y, col = "purple"))
```

<img src="codigoParaAnimaciones_files/figure-html/HeikkiDelorme-1.png" width="672" />