# Herna
# =====

# Jak uložit data do proměnných?
poker <- c(140, -50, 20, -120, 240)
ruleta <- c(-24, -50, 100, -350, 10)

# Jak pojmenovat jednotlivé složky vektoru?

# Jak určit celkové denní výhry?

# Jak určit celkové výhry za celý týden v jednotlivých hrách a také dohromady?

# Jak určit, která hra vydělala více?

# Jak vypsat středeční výhry v pokeru?

# Jak vypsat výhry v ruletě za úterý až čtvrtek?

# Jak určit průměrnou denní výhru v pokeru za pondělí až středu?

# Jak určit průměrnou denní výhru za pondělí až středu?

# Jak určit průměrnou denní výhru v pokeru za každý lichý den?

# Jak určit průměrnou denní výhru v pokeru za poslední 2 dny?

# Jak vypsat úspěchy v pokeru za každý den?

# Jak vypsat úspěšné dny v pokeru?

# Jak vypsat úspěšné dny v ruletě?

# Jak vypsat největší částku prohranou v obou hrách současně?

# Který den to bylo?


# Barva aut
# =========
# Jak uložit data do proměnných?
barva <- c("M", "B", "M", "Z", "B")
auta <- factor(barva)
# sleduj rozdily mezi 'barva' a 'auta'

# Jak přepsat zkratky kategorií na správné názvy? (tj. přepsat "M" na "modra" atd.)

# Jak zjistit počty aut v jednotlivých kategoriích?

# Jak přidat další auto, které bylo modré?

# Jak přidat další auto, které bylo červené? (nová barva!)

# Jak vypsat pouze modrá auta?

# Jak zjistit pořadí modrých aut?

# Která barva je lepší, modra nebo bila?


# Pritelkyne
# ==========
# Jak uložit data do proměnné tak, aby kategorie vzdělání byly seřazeny?
vzdelani <- c("VS", "VS", "SS", "ZS", "SS")
pritelkyne <- factor(vzdelani, ordered = TRUE, levels = c("ZS", "SS", "VS"))

# Jak přepsat zkratky kategorií na správné názvy? (tj. přepsat "ZS" na "zakladni" atd.)

# Jak zjistit počty dívek v jednotlivých kategoriích?

# Jak přidat další dívku, která nedokončila ani základní vzdělání?

# Která dívka má lepší vzdělání, druhá nebo třetí?