1)
https://elandio.fra1.cdn.digitaloceanspaces.com/cesta%2FKatan.xlsx

# Kolik procent hráčů odehraje 1, 2, 3, 4... partie?

table(Katan$Partie)/length(Katan$Partie)*100

2)
# Zjistěte průměrný věk mužů a žen zvlášť dle jejich vzdělání? 
# Uvažujte pouze jedince s věkem vyšším než 25 let.

Studenti <- Katan[
  Katan$Věk > 25, ] 

aggregate(Studenti$Věk,
          list(Studenti$Pohlaví,
               Studenti$Vzdělání),
          FUN = mean, 
          simplify = TRUE,
          na.rm = TRUE)

3)
# V jaké věkové skupině (0 až 17, 18 až 40, 41 až 64, 65 a více) v rámci databáze Katan 
# tvoří kuřáci největší podíl? 

AgeGroup <- cut(
  Katan$Věk, 
  breaks = c(0, 17, 40, 64, 100), 
  right = TRUE, 
  labels = c("0 až 17", "18 až 40", "41 až 64", "65 a více"))
table(AgeGroup)


MoreData <- cbind(Katan, AgeGroup)
# Katan$AgeGroup <- AgeGroup

Table <- table(MoreData$AgeGroup, MoreData$Kouření)
Table
View(Table)

Table <- as.data.frame.matrix(Table)
Table
View(Table)