```r
clust<-hclust(dist(st_coordinates(gps)))  ## Default option for a distance matrix uses euclidaen distance which is what we want.
plot(clust)
```

<img src="Quantitative_and_Spatial_files/figure-html/unnamed-chunk-242-1.png" width="672" />