# Nastavení pracovního adresáře
setwd("D:/Jirka/Environment/Výuka/Bi7541 Analýza dat na PC/2019 podzim")

# Načtení dat ve formátu txt oddělených tabulátorem
data1<-read.delim(file="03_priprava_dat_excel_data.txt",header=TRUE,dec=",",skip=0)

# Načtení dat ve formátu csv oddělených středníkem
data2<-read.csv2(file="03_priprava_dat_excel_data.csv",header=TRUE,dec=",",sep=";",skip=0)

# Spojení tabulek
data<-data.frame(data1,data2)

# Výpis konkrétního sloupce a konkrétního řádku
data[,1]
data[,"typParazita"]
data[15,]

# Filtrování
data[which(data[,8]=="spring 97"),]
data[which(data[,"season"]=="spring 97"),]

# Kontrola dat
unique(data[,8])
unique(data[,"season"])
unique(data$season)

# Balík xlsx
install.packages("xlsx")
library("xlsx")
data<-read.xlsx("03_priprava_dat_excel_data.xlsx",sheetIndex=1,header=TRUE,colClasses="character")