# Nastaveni pracovniho adresare - napr.:
setwd("c:/Users/brozoval/Desktop/vyuka/2018/BIMAT/2. cviceni/")

# Zadani:
# Masina plni lahve do objemu 500ml. Vyrobci se obavaji, ze masina dostatecne nenaplnuje lahve. Nahodne bylo vybrano 20 lahvi, u kterych byl zmeren objem kapaliny. 
# Overte na hladine vyznamnosti alpha=0.05, zda je mnozstvi tekutiny v lahvich nizsi nez pozadovanych 500 ml.

bottles <- read.table(file="bottles.csv", sep=";", dec=".", header=T) # nacteni dat
dim(bottles)
head(bottles)

# Ukoly:
# a) Zvolte variantu testu: jednovyberovy x dvouvyberovy x parovy
# b) Definujte nulovou a alternativni hypotezu
# c) Splnuji data predpoklady pouziti parametrickeho testu? Overte graficky.
# d) Spocitejte prumer a median testovanych parametru.
# e) Testujte nulovou hypotezu - uvedte nazev pouziteho testu.
# f) Interpretujte vysledek testovani.