## ZADANIE 1
# Ceny za 1kg (w zł) truskawek na targowiskach w trzech miastach
# kształtowały się w poniższy sposób. 
# Na poziomie istotności 0.05 zweryfikować hipotezę głoszącą, 
# że wariancje cen truskawek na targowiskach w tych miastach są jednakowe.

cena <- c(7,6,5,8,12,14,11,9,10,8,5,9,11,13,14)
miasto <- factor(c(rep(1,4),rep(2,5),rep(3,6)))
dane <- data.frame(cena,miasto)

bartlett.test(cena~miasto, data=dane)

## ZADANIE 2
# Ceny za 1kg (w zł) truskawek na targowiskach w trzech miastach 
# kształtowały się w poniższy sposób. 
# Na poziomie istotności 0.05 zweryfikować hipotezę głoszącą, że 
# targowiska w tych trzech miastach nie różnią się średnimi cenami 
# za 1 kg truskawek.

cena <- c(7,6,5,8,12,14,11,9,10,8,5,9,11,13,14)
miasto <- factor(c(rep(1,4),rep(2,5),rep(3,6)))
dane <- data.frame(cena,miasto)

ANOVA <- aov(cena~miasto, data=dane)
summary(ANOVA)