# 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)