From e6de4d4b8c6830c7ef1d555679ec3c411b70fb43 Mon Sep 17 00:00:00 2001
From: eneller <erikneller@gmx.de>
Date: Thu, 23 Oct 2025 00:56:48 +0200
Subject: [PATCH] ex01

---
 README.md |  3 +++
 ex01.Rmd  | 11 ++++++++---
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 1577ad5..03d28e2 100644
--- a/README.md
+++ b/README.md
@@ -2,3 +2,6 @@
 ## R
 ```
 ?packagename
+vignette()
+```
+1-based indexing
diff --git a/ex01.Rmd b/ex01.Rmd
index 594ed8f..e3a6ff2 100644
--- a/ex01.Rmd
+++ b/ex01.Rmd
@@ -1,5 +1,5 @@
 ---
-title: "Location Based Services Exercise 01"
+title: "Location Based Services Assignment 01"
 author: "Erik Neller"
 date: "`r Sys.Date()`"
 output: pdf_document
@@ -25,10 +25,15 @@ coordinates: https://www.geonames.org
 ```{r croatia}
 library(rworldmap)
 world <- getMap(resolution = "low")
-plot(world, xlim = c(20, 30), ylim = c(35, 71)
+plot(world, xlim = c(13, 20), ylim = c(42, 47)
      , asp = 1
      , col = "white"
      ,bg = "lightblue",        # background (sea) color
 )
-#points(airports$lon, airports$lat, col = "red", cex = .6)
+destinations <- data.frame(
+  lat = c(45.82, 43.506, 45.07),
+  lon = c(15.97, 16.40, 14.56),
+  name = c("Zagreb", "Split", "Krk")
+)
+points(destinations$lon, destinations$lat, col = "red", cex = .6)
 ```
\ No newline at end of file