# Make a grid to sample from
grd <- sf::st_make_grid(n = c(1, 1), cellsize = c(100, 100), offset = c(0,0))
# sample 100 points
pnts <- sf::st_sample(grd, 100)
# plot points
plot(pnts)
# calculate standard distance
std_distance(pnts)
Run the code above in your browser using DataLab