Commit 5a7b9673 authored by Hopf, Konstantin's avatar Hopf, Konstantin
Browse files

L05 some additions and bugfix in l. 165/166

parent f2566779
......@@ -51,6 +51,9 @@ axis(2)
#Here, we have polygons that we can colorate
plot(ger.shp, col=1:23)
#see the data stored in the shapefile
View(ger.shp@data)
```
As an example, the housing statistics from the German Federal Ministry of Statistics is used
......@@ -91,6 +94,7 @@ housing_statistic_DE <- read_csv2("../data/housing_statistic_germany_31231-0003.
decimal_mark = ",",
grouping_mark = "."))
View(housing_statistic_DE)
#calculate the relative distribution of total living area
housing_statistic_DE$total_livingarea_rel <- housing_statistic_DE$total_livingarea / max(housing_statistic_DE$total_livingarea)
......@@ -147,7 +151,12 @@ points(as_sp(erba_data, what = "points"), pch=16, col=2, cex=0.5)
axis(1)
axis(2)
erba_data$nodes$attrs
#display the data stored for each object
View(erba_data$nodes$attrs)
#display the tags stored for each object (contain the geographic meaning)
View(erba_data$nodes$attrs)
```
# Practicals for the date and time handling
......@@ -160,10 +169,10 @@ Sys.setenv(TZ="CET")
dmy(13112018)
ymd("20181113")
mdy("November 13th, 2018")
mdy(c("November 13th, 2018", "11/ 13/ 2018"))
dmy_hms("13.11.2018 11:15")
dmy_hms("13.11.2018 11:15", tz = "CET")
dmy_hm("13.11.2018 11:15")
dmy_hms("13.11.2018 11:15:01", tz = "CET")
today()
now()
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment