spatialWeightsPoints <-
function(points){
distances <- 1/st_distance(points)
distances[distances==Inf]=0
return(distances)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.