-
Notifications
You must be signed in to change notification settings - Fork 6
/
challenge-1.r
71 lines (67 loc) · 1.94 KB
/
challenge-1.r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
library(assertthat)
# Complete the following statements following the the assignment below:
# * Namen der sieben Hamburger Bezirke (Nicht Stadtteile!)
# * Einwohner
# * Bevölkerungsdichte in km2
# * Nachname Bezirkamtsleiter
# * Mehr als 100km2 Fläche (TRUE oder FALSE)
#
# **Beantworte darüber hinaus folgende Fragen und nutze dafür dein neues R-Wissen:**
#
# * Wie viele Menschen leben insgesamt in den Stadtteilen?
# * Wie hoch ist die Bevökerungsdichte im Durchschnitt?
# hamburg_df <- …
# inhabitants_sum <- …
# density <- …
if(
assert_that(
has_name(hamburg_df, "bezirk"),
msg = "Die Spalte 'bezirk' fehlt"
) &&
assert_that(
has_name(hamburg_df, "einwohner"),
msg = "Die Spalte 'einwohner' fehlt"
) &&
assert_that(
has_name(hamburg_df, "bevoelkerungsdichte"),
msg = "Die Spalte 'bevoelkerungsdichte' fehlt"
) &&
assert_that(
has_name(hamburg_df, "bezirksamtsleiter"),
msg = "Die Spalte 'bezirksamtsleiter' fehlt"
) &&
assert_that(
has_name(hamburg_df, "flaeche"),
msg = "Die Spalte 'flaeche' fehlt"
) &&
assert_that(
is.character(hamburg_df$bezirk),
msg = "Die Spalte 'bezirk' ist vom flaschen Datentyp"
) &&
assert_that(
is.character(hamburg_df$bezirksamtsleiter),
msg = "Die Spalte 'bezirksamtsleiter' ist vom flaschen Datentyp"
) &&
assert_that(
is.logical(hamburg_df$flaeche),
msg = "Die Spalte 'flaeche' ist vom flaschen Datentyp"
) &&
assert_that(
is.numeric(hamburg_df$einwohner),
msg = "Die Spalte 'einwohner' ist vom flaschen Datentyp"
) &&
assert_that(
is.numeric(hamburg_df$bevoelkerungsdichte),
msg = "Die Spalte 'bevoelkerungsdichte' ist vom flaschen Datentyp"
) &&
assert_that(
inhabitants_sum == 1899149,
msg = "Die Summe der Einwohner is nicht richtig"
) &&
assert_that(
density == 3092,
msg = "Die durchschnittliche Bevölkerungsdichte ist falsch"
)
) {
writeLines("Congrats! 10/10 points!")
}