\section*{Příklad 1}
\noindent Text. Komentář k postupu řešení příkladu, teoretické odvození, pokud je požadováno v zadání.

Text. Odstavce se oddělují prázdným řádkem. 

\subsection*{Implementace v R}
\begin{lstlisting}
funkce v R ...
## funkce pro vypocet zakladnich charakteristik
zaklchar <- function(x){
  v1 <- c(length(x), round(mean(x),2), round(sd(x),2))
  return(v1)
}
# vypocet zakladnich charakteristik pro muze a zeny
zeny <- zaklchar(vyskalebky[data$sex == 'F'])
muzi <- zaklchar(vyskalebky[data$sex == 'M'])
tabulka <- rbind(zeny, muzi)
# vykresleni krabicovych diagramu
boxplot(zeny, muzi,
        col = "steelblue", 
        xlab = "",
        ylab = "Vyska lebky (mm)",
        xaxt = "n", 
        boxwex = 0.5)
axis(1, at = 1:2, labels = c("zeny","muzi"))
# pridani prumeru
points(tabulka[,2], col = "red", pch = 16)
\end{lstlisting}

Kompletní kód odevzdáváte v souboru typu \textsf{.R} nebo \textsf{.Rnw} dle pokynů k DÚ, zde vkládáte pouze požadované funkce či stěžejní části kódu pro daný příklad.
\bigskip
\subsection*{Výsledky a interpretace}
\noindent Text. Výsledky v tabulkové a grafické podobě. Interpretace v textové podobě.

 Interpretace. Text. Komentář k tabulkám a obrázkům. Co můžeme usuzovat o rozdílech ve výšce lebky mezi muži a ženami na základě hodnot v tabulce a krabicových diagramů? Jak z obrázku poznáme, zda data pocházejí z normálního rozdělení?
  

\begin{table}[ht]
\footnotesize
\centering

\begin{tabular}{r||rrr}
 Pohlaví & počet jedinců & průměrná výška (v mm) & směrodatná odchylka \\ 
 \hline \hline
ženy & 20 & 127.70 & 6.86 \\ 
muži & 40 & 135.54 & 5.20 \\ 
\end{tabular}
\caption{Základní charakteristiky pro výšku lebky žen a mužů}
\end{table}


\begin{figure}[ht]
\centering
\includegraphics[angle=0,width=0.45\textwidth]{boxplot-vzor.pdf}
\caption{Krabicové diagramy výšky lebky pro ženy a pro muže}
\end{figure}

\newpage

\section*{Příklad 2}
\noindent Nezapomeňte zkontrolovat, že u každého příkladu máte uvedeny všechny výstupy, které jsou požadovány v zadání.