# nemparameteres khi-negyzet probak
library(MASS)
help(survey)

megfigyelt=table(survey$Smoke)
vart=c(0.045,0.795,0.085,0.075)

help(chisq.test)

# illeszkedesvizsgalat
chisq.test(megfigyelt,p=vart,rescale.p=TRUE)

# fuggetlensegvizsgalat
table(survey$Exer)
kontingencia=table(survey$Smoke,survey$Exer)
chisq.test(kontingencia)
 # fuggetlensegvizsgalat osszevont oszlopokkal
kontingencia=cbind(kontingencia[,1],kontingencia[,2]+kontingencia[,3])
chisq.test(kontingencia)  

##################
# elojelproba - Turbo tudas feladat

minta=c(36,26,30,34,42,24,30,45,32,19,35,38)
centraltminta=minta-30
poz=centraltminta[centraltminta>0]
osszes=centraltminta[centraltminta!=0]

x=length(poz)
n=length(osszes)
help(binom.test)
binom.test(x,n,alternative="g")
#binom.test(7,10,alternative="greater")

# Wilcoxon-fele elojeles rangosszeg proba - Turbo tudas feladat
minta=c(36,26,34,42,24,45,32,19,35,38)
help(wilcox.test)
wilcox.test(minta,mu=30,alternative="g")

##############
# ANOVA - franchise gyorsetterem feladat
help(aov)

eladasok=c(22,42,44,52,45,37,52,33,8,47,43,32,16,24,19,18,34,39)
v=rep(c(1,2,3),each=6)  # kodolja az adatokat, melyik menuhoz tartoznak

anova=aov(eladasok~as.factor(v))
summary(anova)
anova