# Herna
# =====

# Jak ulozit data do promennych?
poker <- c(140, -50, 20, -120, 240)
ruleta <- c(-24, -50, 100, -350, 10)

# Jak pojmenovat jednotlive slozky vektoru?

# Jak urcit celkove denni vyhry?

# Jak urcit celkove vyhry za cely tyden v jednotlivych hrach a take dohromady?

# Jak urcit, ktera hra vydelala vice?

# Jak vypsat stredecni vyhry v pokeru?

# Jak vypsat vyhry v rulete za utery az ctvrtek?

# Jak urcit prumernou denni vyhru v pokeru za pondeli az stredu?

# Jak urcit prumernou denni vyhru za pondeli az stredu?

# Jak urcit prumernou denni vyhru v pokeru za kazdy lichy den?

# Jak urcit prumernou denni vyhru v pokeru za posledni 2 dny?

# Jak vypsat uspechy v pokeru za kazdy den?

# Jak vypsat uspesne dny v pokeru?

# Jak vypsat uspesne dny v rulete?

# Jak vypsat nejvetsi castku prohranou v obou hrach soucasne?

# Ktery den to bylo?


# Barva aut
# =========
# Jak ulozit data do promennych?
barva <- c("M", "B", "M", "Z", "B")
auta <- factor(barva)
# sleduj rozdily mezi 'barva' a 'auta'

# Jak prepsat zkratky kategorii na spravne nazvy? (tj. prepsat "M" na "modra" atd.)

# Jak zjistit pocty aut v jednotlivych kategoriich?

# Jak pridat dalsi auto, ktere bylo modre?

# Jak pridat dalsi auto, ktere bylo cervene? (nova barva!)

# Jak vypsat pouze modra auta?

# Jak zjistit poradi modrych aut?

# Ktera barva je lepsi, modra nebo bila?


# Pritelkyne
# ==========
# Jak ulozit data do promenne tak, aby kategorie vzdelani byly serazeny?
vzdelani <- c("VS", "VS", "SS", "ZS", "SS")
pritelkyne <- factor(vzdelani, ordered = TRUE, levels = c("ZS", "SS", "VS"))

# Jak prepsat zkratky kategorii na spravne nazvy? (tj. prepsat "ZS" na "zakladni" atd.)

# Jak zjistit pocty divek v jednotlivych kategoriich?

# Jak pridat dalsi divku, ktera nedokoncila ani zakladni vzdelani?

# Ktera divka ma lepsi vzdelani, druha nebo treti?