# NOT RUN {
p1 = st_point(c(7,52))
st_normalize(p1, domain = c(0, 0, 10, 100))
p2 = st_point(c(-30,20))
sfc = st_sfc(p1, p2, crs = 4326)
sfc
sfc_norm <- st_normalize(sfc)
st_bbox(sfc_norm)
# }
Run the code above in your browser using DataCamp Workspace