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

# Jak uložit data do proměnných?
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 řádky?

# Jak zjistit rozměr a strukturu tabulky?

# Jak zjistit všechny údaje o Heleně? Jak zjistit všechny údaje o chlapcích?

# Jak vypsat pouze sloupec body? Jak zjistit průměrný počet získaných bodů?

# Jak přidat sloupec zapocteno, který bude nabývat hodnot TRUE v případě, že student získal alespoň 5 bodů a FALSE v opačném případě?

# Jak přidat dalšího studenta Honzu, který studuje obor STAT a získal 7,5 bodů?

# Josef uprosil opravujícího na 5 bodů. Jak změnit údaje v tabulce?

# Jak seřadit tabulku podle počtu bodů?

# Jak seřadit podle oboru a pak podle počtu bodů?

# Jak zjistit nejúspěšnější ženu?

# Máme tabulku s body z jiného testu. Jak obě tabulky sloučit dohromady?


# FILM
# ====

# Jak uložit data do proměnných?
nazev_filmu <- "Pelíšky"
jmena_hercu <- c("Miroslav Donutil", "Jiří Kodet", "Simona Stašová", 
                 "Emília Vášáryová", "Bolek Polévka", "Jaroslav Dušek", "Eva Holubová", "Stella Zázvorková")
skore_recenze <- c(4, 3.5, 5)
zdroj_recenze <- c("csfd1", "csfd2", "csfd3")
komentare_recenze <- c("Tenhle film mám rád, byť rozhodně není Hřebejkovým nejlepším.",
                       "Nepochopitelným způsobem nadhodnocený film!", 
                       "Málokdy se vidí, aby se z něčeho stala skoro ihned klasika.")
rok_filmu <- 1999


# Jak přidat další položku "režie" Jan Hřebejk?

# Herec Bolek Polívka má ve svém jménu chybu. Jak ji opravit?

# Jak zjistit průměrné hodnocení filmu?

# Jak ke druhému komentáři ještě přidat větu "Ale přesto se mi líbí."?

# Jak přidat další komentář recenzenta "csfd4" se skóre 2,5 a se slovním hodnocením "Nic moc!" ?

# Jak vymazat položku "rok"?

# Jak uložit data do souboru, abych jej mohl poslat kamarádovi?