###### Bevezetés a Biostatisztikába és az R program használatába I. ######

##### T-próbák ####
##### Egymintás t-próba ####


## Szűcs Mónika ##


# Jelen tananyag a Szegedi Tudományegyetemen készült
# az Európai Unió támogatásával.
# Projekt azonosító: EFOP-3.4.3-16-2016-00014

#######################################################




# Nyissa meg az orvkerd2016.xlsx fajlt!
# Tesztelje, hogy a minta szarmazhat-e olyan populaciobol,
# melyben az atlagos testmagasag 150 cm (magassag)! (alpha=0.05) 

##### Adatbazis beolvasasa ####

# File -> Import Dataset -> From Excel ...
# vagy orvkerd2016= read_excel("orvkerd2016.xlsx")


attach(orvkerd2016)

##### Leiro statisztikak ####

summary(magassag)
sd(magassag)
hist(magassag)
boxplot(magassag)



##### Hipotezisvizsgalat lepesei ####

# H0: A minta olyan populaciobol szarmazik, melyben az atlagos testmagassag 150 cm.
# H1: A minta olyan populaciobol szarmazik, melyben az atlagos testmagassag NEM 150 cm.

# alpha=0.05

# A proba neve: egymintas t-proba
# Feltetele: a minta normalis eloszlasu populaciobol szarmazik

# Szamolas
t.test(magassag, mu=150)

##### Szamolas eredmenyei ####
# probastatisztika t=21.566
# szabdsagfok df=66
# konfidencia intervallum (170.3561; 174.5096)
# p-ertek p<0.001
# Dontes: H0-t elvetjuk, mert p< alpha
# a kulonbseg szignifikans
# van elegendo bizonyitekunk a kulonbseg kimutatasara