# Nastaveni pracovniho adresare (working directory)
setwd("D:/Jirka/Environment/Výuka/Bi7541 Analýza dat na PC/2018 podzim")


# Nacteni souboru zelvy do datoveho ramce
zelvy<-read.csv2(file="02_zelvy.csv",header=TRUE,dec=",",sep=";",skip=0)


# Zakladni popisne statistiky promennych v souboru
summary(zelvy)
summary(zelvy)[,5]
summary(zelvy)[,6]


# Frekvencni tabulka
table(zelvy[,5])


# Vypocet konkretnich statistik na jednotlivych sloupcich
mean(zelvy[,1])
sd(zelvy[,1])

mean(zelvy[,"Šířka"])
sd(zelvy[,"Výška"])

mean(zelvy$Výška)
sd(zelvy$Výška)

vek<-zelvy$Věk
mean(vek)
sd(vek)


# Histogram
hist(vek,main="Histogram věku želv",xlab="Věk",ylab="Počet jedinců")


# Hezci histogram
install.packages("genasis")
library(genasis)
genhistogram(vek,col="orange",emboss=3,main="Histogram věku želv",xlab="Věk",ylab="Počet jedinců",distr="")