diff --git a/simpleobisCCP.R b/simpleobisCCP.R
index e305398..8a48228 100644
--- a/simpleobisCCP.R
+++ b/simpleobisCCP.R
@@ -25,7 +25,7 @@ usedPolygon=args[2]
 wktP <-readWKT(usedPolygon)
 print(wktP@bbox)
 
-#By scientific name adnd geometry
+#By scientific name and geometry
 y=occurrence(sname, geometry = usedPolygon)
 occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,])
 ggsave(result, plot = occplot)
diff --git a/simpleobisSAI.R b/simpleobisSAI.R
index a21c775..edc7dd1 100644
--- a/simpleobisSAI.R
+++ b/simpleobisSAI.R
@@ -15,7 +15,7 @@ result="occplot.png"
 wktP <-readWKT(usedPolygon)
 print(wktP@bbox)
 
-#By scientific name adnd geometry
+#By scientific name and geometry
 y=occurrence(sname, geometry = usedPolygon)
 occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,])
 ggsave(result, plot = occplot)