# Zadanie 1
suplement <- c(43.2, 42.5, 44.1, 45.0, 43.8, 42.9, 44.3, 45.1, 43.7, 44.6,
               43.9, 42.7, 44.0, 45.3, 43.6, 44.2, 43.4, 42.8, 44.9, 45.2,
               44.4, 43.0, 45.4, 44.5, 43.5, 44.7, 45.5, 43.1, 42.6, 44.8)

kontrola <- c(37.5, 38.0, 38.4, 37.8, 38.2, 37.7, 38.1, 37.9, 38.3, 37.6,
              38.5, 38.1, 37.5, 38.4, 37.8, 38.2, 37.6, 38.0, 37.7, 38.3,
              38.1, 38.0, 37.9, 37.6, 38.4, 37.8, 38.5, 38.2, 37.5, 37.9)

# Zadanie 2
gatunek_A <- c(41.3, 41.1, 41.4, 41.2, 41.0, 41.3, 41.2, 41.4, 41.1, 41.2,
               41.0, 41.2, 41.1, 41.3, 41.0, 41.4, 41.3, 41.2, 41.0, 41.1,
               41.4, 41.3, 41.2, 41.1, 41.0, 41.2, 41.3, 41.1, 41.0, 41.2)

gatunek_B <- c(41.1, 40.9, 41.2, 41.0, 41.1, 41.0, 41.1, 41.0, 41.1, 40.9,
               41.0, 41.1, 40.9, 41.0, 40.8, 41.0, 41.1, 41.0, 40.9, 41.0,
               41.2, 41.0, 41.1, 41.0, 40.9, 41.1, 41.0, 41.0, 40.9, 41.1)

# Zadanie 3
glukoza_przed <- c(142, 138, 140, 139, 141, 143, 137, 140, 139, 138,
                   141, 140, 139, 138, 137, 141, 140, 142, 139, 138,
                   140, 139, 138, 141, 140, 139, 140, 142, 141, 138)

glukoza_po <- c(122, 117, 121, 118, 119, 124, 115, 120, 119, 116,
                118, 121, 119, 117, 116, 120, 118, 122, 119, 116,
                120, 118, 117, 121, 120, 119, 120, 122, 121, 117)

# Zadanie 4
tetno_przed <- c(70, 71, 69, 70, 72, 71, 70, 71, 69, 70,
                 72, 70, 71, 69, 70, 71, 70, 72, 71, 69,
                 70, 71, 69, 70, 72, 70, 71, 70, 69, 71)

tetno_po <- c(71, 70, 70, 71, 71, 71, 71, 70, 70, 70,
              72, 70, 70, 70, 70, 71, 70, 71, 71, 70,
              70, 71, 69, 70, 71, 71, 70, 70, 70, 70)

# Zadanie 5
enzym_A <- c(5.1, 5.2, 5.2, 5.1, 5.2, 5.1, 5.0, 5.3, 5.0, 5.2,
             5.1, 5.3, 5.3, 5.1, 5.2, 5.0, 5.0, 5.3, 5.0, 5.1,
             5.2, 5.1, 5.3, 5.1, 5.0, 5.0, 5.3, 5.0, 5.0, 5.3)

enzym_B <- c(6.5, 6.1, 6.9, 6.2, 6.8, 6.3, 6.6, 6.7, 6.1, 6.9,
             6.3, 6.8, 6.2, 6.6, 6.4, 6.1, 6.9, 6.3, 6.8, 6.4,
             6.5, 6.2, 6.7, 6.4, 6.5, 6.8, 6.3, 6.7, 6.2, 6.4)

# Zadanie 6
nocne <- c(1.15, 1.17, 1.12, 1.20, 1.14, 1.13, 1.25, 1.10, 1.30, 1.09,
           1.28, 1.11, 1.26, 1.12, 1.29, 1.08, 1.27, 1.13, 1.14, 1.10,
           1.26, 1.25, 1.09, 1.28, 1.10, 1.27, 1.08, 1.29, 1.11, 1.30)

dzienne <- c(1.30, 1.32, 1.33, 1.35, 1.36, 1.34, 1.37, 1.35, 1.33, 1.32,
             1.36, 1.34, 1.37, 1.36, 1.35, 1.34, 1.33, 1.35, 1.36, 1.37,
             1.33, 1.34, 1.36, 1.35, 1.37, 1.34, 1.36, 1.33, 1.35, 1.37)

# Zadanie 7
masa_przed <- c(25.0, 25.3, 24.8, 25.1, 25.2, 24.9, 25.0, 25.1, 24.8, 25.3,
                25.2, 25.0, 24.9, 25.1, 25.0, 25.3, 24.9, 25.0, 25.1, 25.2,
                25.0, 25.1, 24.9, 25.2, 25.0, 25.1, 24.9, 25.3, 25.0, 25.1)

masa_po <- c(23.6, 23.9, 23.3, 23.8, 23.7, 23.5, 23.6, 23.8, 23.3, 23.9,
             23.7, 23.6, 23.5, 23.8, 23.6, 23.9, 23.5, 23.6, 23.8, 23.7,
             23.6, 23.8, 23.5, 23.7, 23.6, 23.8, 23.5, 23.9, 23.6, 23.8)

# Zadanie 8
leukocyty_przed <- c(6.0, 6.2, 6.1, 6.0, 6.3, 6.1, 6.0, 6.2, 6.1, 6.3,
                     6.0, 6.1, 6.2, 6.0, 6.1, 6.2, 6.0, 6.1, 6.2, 6.3,
                     6.1, 6.2, 6.0, 6.1, 6.2, 6.0, 6.3, 6.1, 6.2, 6.0)

leukocyty_po <- c(6.1, 6.3, 6.2, 6.1, 6.4, 6.2, 6.1, 6.3, 6.2, 6.4,
                  6.1, 6.2, 6.3, 6.1, 6.2, 6.3, 6.1, 6.2, 6.3, 6.4,
                  6.2, 6.3, 6.1, 6.2, 6.3, 6.1, 6.4, 6.2, 6.3, 6.1)