# cviceni Statistika 14. prosince 2005 # # neni-li uz spusten, pak # spustit datovy soubor kojeni.RData # data prejmenovat Kojeni<-kojeni; rm(kojeni) # attach(Kojeni) # zpristupnit kopii datoveho objektu summary(Kojeni) # udelat si predstavu # # lisi se otcove od matek v (populacnim) prumeru o 12 cm? # # nejdriv porovnat graficky boxplot(vys_otec-vys_matka) # shapiro.test(vys_otec-vys_matka) t.test(vys_otec,vys_matka,paired=TRUE,mu=12) # # porovnat vek otcu a vek matek, zda jsou otcove # v (populacnim) prumeru starsi o dva roky # nez matky # boxplot(vek_otec-vek_matka) abline(h=2) hist(vek_otec-vek_matka) abline(v=2,col="red") # ze skutecne problém s normalitou: qqnorm(vek_otec-vek_matka); qqline(vek_otec-vek_matka) shapiro.test(vek_otec-vek_matka) # parovy Wilcoxonuv test wilcox.test(vek_otec-vek_matka,mu=2) #