# 2. feladat
adat = data.frame(k1 = ceiling(runif(200)*6),k2 = ceiling(runif(200)*6))
attach(adat)
adat$s = k1+k2
adat$m = abs(k1-k2)
detach(adat)
attach(adat)
hist(s)
hist(s,probability=TRUE)
lines(density(s))
is.factor(s)
is.factor(m)
adat$s = factor(s)
adat$m = factor(m)
detach(adat)
attach(adat)
table(s,m)
chisq.test(s,m)