made site1$Coords into a SpatialPoints object
further edits to Rmd