######## ĆWICZENIA 9


# Zadanie 1
data.set <- MASS::painters
install.packages('caret')
library(caret)

#tworzenie próby uczącej
ctrl.loo <- trainControl(method = "LOOCV", search = 'grid')

# School - zmienna zależna, potem wszystkie inne
model.lda <- train(School ~.,
                   data = data.set,
                   method = 'lda',
                   trControl = ctrl.loo)

# błąd walidacji
#robimy "1 -", bo tam jest poprawna klasyfikacja, a my chcemy uzyskać błąd
1 - model.lda$results[2]

# błąd resyscytucji, poprawnego podstwiania??
# robimy średnią z tych, gdzie źle przewidziano szkołę
mean(predict(model.lda) != data.set$School)


confusionMatrix(predict(model.lda), data.set$School)