### TEST KURSKALA-WALLISA ###

dane1 <- data.frame(c(15,12,11,18,10,7,7,9,11,13,8,8,16,14,10,11,9,7),
c(rep("AG",6),rep("INF",7),rep("MAT",5)))
colnames(dane1)<-c("y","group")
dane1


### TEST FRIEMDANA ###

dane2 <- matrix(c(1500,1350,1974,1470,1050,2005,700,1750,
1679,1540,1490,1550,2000,2450,2510,1990,2700,2230), ncol=3)
dimnames(dane2) = list(1 : 6,
                       c("Producent A", "Producent B", "Producent C"))