# 2. feladat
adat = data.frame(u1 = runif(100,max=2), u2 = runif(100,max=2),
	u3 = runif(100,max=2))
# vagy runif(100)*2
adat
adat$v1 = adat$u1 + adat$u2
adat$v2 = adat$u2 + adat$u3
adat$t1 = cut(adat$v1,0:4)
adat$t2 = cut(adat$v2,0:4)
is.factor(adat$t1)
is.factor(adat$t2)
# console-on eredmeny TRUE
# igaz, cut() eredmenye factor!
# if-es megoldas is jo, benne konvertalas pl. adat$t1 = factor(adat$t1)
hist(v1)
hist(v1,breaks=4)
plot(t1)
# factor-ra nincs hist() fuggveny, 
# de plot alaptertelmezesben gyakorisagot abrazol!
# vagy coersion-nel: hist(as.numeric(t1))
table(adat$t1,adat$t2)
chisq.test(adat$t1,adat$t2)