Zadání domácího úkolu 1:
1. Načtěte datový soubor 16-anova-head.txt do proměnné data.
2. Zjistěte, kolik se v datovém souboru vyskytuje mužů a kolik žen. (75; 100)
3. Z proměnné data vytáhněte údaje o pohlaví (sex), délce lebky (head.L), a šířce lebky (head.W) pro ženy. Údaje vložte do proměnné data2.
4. Zjistěte dimenzi datové tabulky data2. (100 x 5")
5. Zjistěte minimální a maximální hodnotu délky lebky žen. (170; 205)
6. Zjistěte minimální a maximální hodnotu šířky lebky žen. (135; 162)
7. Zjistěte průměrnou hodnotu délky lebky žen a průměrnou hodnotu šířky lebky žen v souboru. Výsledek zaokrouhlete na dvě desetinná místa. (185.01, 146.92)
8. Zjistěte, kolik žen má délku lebky vyšší nebo rovnu průměrné hodnotě. (51)
9. Datovou tabulku data2 obohaťte o vektor hodnot mající hodnotu 1 u žen, jejichž délka lebky je vyšší nebo rovna průměrné hodnotě, a hodnotu 0 u žen, jejichž délka lebky je nižší než průměrná hodnota. Nový sloupec pojmenujte high.L.
10. Do jednoho grafu zaznamenejte údaje o délce lebky žen a šířce lebky žen, ovšem pouze pro ženy, jejichž délka lebky je vyšší nebo rovna průměrné hodnotě.
(a) na ose x budou pořadová čísla žen (1-51) a na ose y hodnoty délky resp. šířky lebky žen
(b) graf opatřete popisky os a vhodným názvem grafu
(c) hodnoty délky a šířky lebky od sebe odlište barvou a tvarem bodů nebo čar
(d) obrázek vybavte legendou
11. Výsledný obrázek exportujte jako .pdf soubor a přiložte jej do e-mailu k řešení úkolu.
Délka a sirka lebky zen
o o
OJ
E o
i 00
.O
CD O
Cd o
co
■ délka lebky
■ sirka lebky
"I-1-1-1-1-1-
0 10 20 30 40 50
ID probanda
1
Nápověda:
• Ad 3. podobný příkaz jsme si uváděli na cvičení.
• Ad 9. Nejprve vytvořte vektor splňující požadavky (1 když head.L < průměr a 1 když head.L > průměr) a pak ho připojte k datové tabulce.
• Ad 10. Graf se tedy týká pouze mužů, kteří mají hodnotu low.L == 1.
• Ad 10-d. Legenda se do grafu doplňuje příkazem legend('umisteni legendy', fill=c('barva 1.proměnné','barva 2.proměnné'), legend=c('l.popisek legendy','2.popisek legendy'), bty='n'). Příkaz bty='n' odstraní černý rámeček okolo legendy.
Např: legend('toprighť, fill=c('darkred','darkblue'), legend=c('pes','kocka'), bty='n')
2