# Nastaveni pracovniho adresare (working directory)
setwd("C:/Jirka/Environment/Výuka/Bi7541 Analýza dat na PC/2015 jaro")


# 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="")