ex01

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)
 ```