```r
corfe_common_sssi<-giscourse::sssi(x=-2.0595,y=50.6337,dist=1000)
phabitat<-giscourse::phabitat(x=-2.0595,y=50.6337,dist=10000)
lcover<-giscourse::landcover(x=-2.0595,y=50.6337,dist=10000)
write_sf(corfe_common_sssi,"data/Corfe_common.shp")
write_sf(phabitat,"data/phabitat.shp")
write_sf(lcover,"data/lcover.shp")
```