#1 Wykonanie polecenia data()
data()

#zwraca opisy a w nim
#HairEyeColor        Hair and Eye Color of Statistics
#                                            Students

#2 Przeanalizowanie zawartnosci danych HairEyeColor
HairEyeColor

# Dane zawieraja informacje na temat studentow ich kolorow wlosow, oczu z podzialem na plec

#3 Wygenerowanie zestawu hyc.raw

hyc <- as.data.frame(HairEyeColor)
hyc.raw <- NULL
for(i in 1:3) { hyc.raw <- cbind(hyc.raw, rep(as.character(hyc[,i]), hyc$Freq))}
hyc.raw <- as.data.frame(hyc.raw)
names(hyc.raw) <- c("hair", "eye", "sex")
head(hyc.raw)

#4 Biblioteka library(party)
#Instalacja w RSTudio sprowadza sie do Tools >> instal package
library(party)

#5 Wygenerowanie drzewa decyzyjnego

set.seed(1234)
ind <- sample(2, nrow(hyc), replace=TRUE, prob=c(0.7, 0.3))
ind

trainData <- hyc[ind==1,]
testData <- hyc[ind==2,]

# do poprawy ponizsza linijka
Formula <-
  hyc ~ hyc$Hair + hyc$Eye + hyc$Sex+ hyc$Freq

Tree <- ctree(Formula, data=trainData)