# Test z M4130
# ============

# Jak ulozit data do promennych?
jmena <- c("Jiri", "Tomas", "Helena", "Josef", "Veronika")
obor_nazev <- c("AMV", "STAT", "OM", "OM", "FINPOJ")
body_hodnoty <- c(5.3, 9, 2.3, 4.8, 10)

# Jak pojmenovat radky?

# Jak zjistit rozmer a strukturu tabulky?

# Jak zjistit vsechny udaje o Helene? Jak zjistit vsechny udaje o chlapcich?

# Jak vypsat pouze sloupec body? Jak zjistit prumerny pocet ziskanych bodu?

# Jak pridat sloupec zapocteno, ktery bude nabyvat hodnot TRUE v pripade, ze student ziskal alespon 5 bodu a FALSE v opacnem pripade?

# Jak pridat dalsiho studenta Honzu, ktery studuje obor STAT a ziskal 7,5 bodu?

# Josef uprosil opravujiciho na 5 bodu. Jak zmenit udaje v tabulce?

# Jak seradit tabulku podle poctu bodu?

# Jak seradit podle oboru a pak podle poctu bodu?

# Jak zjistit nejuspesnejsi zenu?

# Mame tabulku s body z jineho testu. Jak obe tabulky sloucit dohromady?


# FILM
# ====

# Jak ulozit data do promennych?
nazev_filmu <- "Pelisky"
jmena_hercu <- c("Miroslav Donutil", "Jiri Kodet", "Simona Stasova", 
                 "Emilia Vasaryova", "Bolek Polevka", "Jaroslav Dusek", "Eva Holubova", "Stella Zazvorkova")
skore_recenze <- c(4, 3.5, 5)
zdroj_recenze <- c("csfd1", "csfd2", "csfd3")
komentare_recenze <- c("Tenhle film mam rad, byt rozhodne neni Hrebejkovym nejlepsim.",
                       "Nepochopitelnym zpusobem nadhodnoceny film!", 
                       "Malokdy se vidi, aby se z neceho stala skoro ihned klasika.")
rok_filmu <- 1999


# Jak pridat dalsi polozku "rezie" Jan Hrebejk?

# Herec Bolek Polivka ma ve svem jmenu chybu. Jak ji opravit?

# Jak zjistit prumerne hodnoceni filmu?

# Jak ke druhemu komentari jeste pridat vetu "Ale presto se mi libi."?

# Jak pridat dalsi komentar recenzenta "csfd4" se skore 2,5 a se slovnim hodnocenim "Nic moc!" ?

# Jak vymazat polozku "rok"?

# Jak ulozit data do souboru, abych jej mohl poslat kamaradovi?