klass=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", sep=",", header=TRUE)
poisid=klass[klass$sugu=='m',"pikkus"]
tydrukud=klass[klass$sugu=='n',"pikkus"]
poisid
tydrukud
t.test(poisid)
t.test(tydrukud)
t.test(tydrukud, conf.level=0.99)
t.test(tydrukud, conf.level=0.99, alternative="greater")


        One Sample t-test

data:  poisid
t = 78.609, df = 16, p-value < 2.2e-16
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 154.3687 162.9254
sample estimates:
mean of x 
 158.6471 

95% tõenäosusega on poiste keskmine pikkus vahemikus  154.3687-162.9254
Valimi keskmine pikkus 158.6471
Valimi keskmine on nullist 78.609 standardhälbe kaugusel
Tõenäosus, et poiste keskmine pikkus võiks olla null on  2.2e-16 (kümme astmel miinus kuusteist)

> t.test(tydrukud, conf.level=0.99, alternative="greater")

        One Sample t-test

data:  tydrukud
t = 64.245, df = 12, p-value < 2.2e-16
alternative hypothesis: true mean is greater than 0
99 percent confidence interval:
 152.5859      Inf
sample estimates:
mean of x 
 159.2308 

99% tõenäosusega on tüdrukute pikkus suurem kui 152.5859

mean(tydrukud)+qt(0.01, length(tydrukud)-1)*sd(tydrukud)/sqrt(length(tydrukud))
152.5859

t.test(poisid, tydrukud)
        Welch Two Sample t-test

data:  poisid and tydrukud
t = -0.18262, df = 24.959, p-value = 0.8566
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -7.167084  5.999663
sample estimates:
mean of x mean of y 
 158.6471  159.2308