kockaseged<-runif(500,0.5,6.5)

kockaseged

kocka<-round(kockaseged)

kocka

hist(kocka)

table(kocka)

eredmeny<-chisq.test(table(kocka))

eredmeny