#Zadanie 1
# Wzrost w cm dla grupy A i B
grupa_A <- c(170, 172, 168, 171, 169, 173, 167, 174, 170, 172)
grupa_B <- c(165, 160, 170, 155, 175, 180, 165, 170, 160, 155)

#Zadanie 2
# Czas reakcji w sekundach
kontrola <- c(0.5, 0.6, 0.55, 0.65, 0.6, 0.7, 0.6, 0.65, 0.55, 0.6)
eksperymentalna <- c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5)

#Zadanie 3
# Dane z wbudowanego zbioru PlantGrowth
data("PlantGrowth")

#Zadanie 4
# Poziom glukozy w mg/dL
grupa1 <- c(90, 92, 88, 91, 89)
grupa2 <- c(85, 87, 83, 86, 84)
grupa3 <- c(95, 97, 93, 96, 94)

# Tworzenie ramki danych
glukoza <- data.frame(
  poziom = c(grupa1, grupa2, grupa3),
  grupa = factor(rep(c("Grupa1", "Grupa2", "Grupa3"), each = 5))
)

#Zadanie 5
# Tabela kontyngencji
napoje <- matrix(c(30, 20, 25, 25), nrow = 2,
                 dimnames = list(Płeć = c("Mężczyzna", "Kobieta"),
                                 Napój = c("Kawa", "Herbata")))

#Zadanie 6
# Tabela kontyngencji
muzyka <- matrix(c(10, 20, 30, 15, 25, 35), nrow = 2,
                 dimnames = list(Wiek = c("Młodzi", "Starszy"),
                                 Gatunek = c("Pop", "Rock", "Jazz")))

#Zadanie 7
# Tabela kontyngencji
zatrudnienie <- matrix(c(50, 30, 20, 60, 40, 10), nrow = 2,
                       dimnames = list(Wykształcenie = c("Wyższe", "Średnie"),
                                       Status = c("Zatrudniony", "Bezrobotny", "Student")))

#Zadanie 8
# Tabela kontyngencji
dieta <- matrix(c(80, 20, 60, 40), nrow = 2,
                dimnames = list(Dieta = c("Wegetariańska", "Mięsna"),
                                Choroba = c("Brak", "Obecność")))