diff --git a/man/resp_simplify.Rd b/man/resp_simplify.Rd
index 05d649d..e5a58af 100644
--- a/man/resp_simplify.Rd
+++ b/man/resp_simplify.Rd
@@ -29,7 +29,7 @@ poly <- sf::st_polygon(list(rbind(
         c(2, 2), c(1, 2.25),
         c(0, 2), c(0.25, 1),
         c(0, 0))))
-shape <- sf::st_sf(geometry = sf::st_sfc(poly))
+shape <- sf::st_sf(geometry = sf::st_sfc(poly), crs = 4326)
 simplified_shape <- resp_simplify(shape, 0.5)
 
 }