load("kolegyes.RData")

View(kolegyes)

# t-proba feltetelei teljesulnek-e


ab<-mean(subset(kolegyes,group==1)$cholest14,na.rm=TRUE)

szb<-sd(subset(kolegyes,group==1)$cholest14,na.rm=TRUE)

ks.test(subset(kolegyes,group==1)$cholest14,"pnorm",ab,szb)




ae<-mean(subset(kolegyes,group==2)$cholest14,na.rm=TRUE)

sze<-sd(subset(kolegyes,group==2)$cholest14,na.rm=TRUE)

ks.test(subset(kolegyes,group==2)$cholest14,"pnorm",ae,sze)



shapiro.test(subset(kolegyes,group==1)$cholest14)
shapiro.test(subset(kolegyes,group==2)$cholest14)



qqnorm(subset(kolegyes,group==1)$cholest14)

qqline(subset(kolegyes,group==1)$cholest14, col = "steelblue",lwd=2)



qqnorm(subset(kolegyes,group==2)$cholest14)

qqline(subset(kolegyes,group==2)$cholest14, col = "steelblue",lwd=2)


kulonbseg<-subset(kolegyes,group==1)$cholest14-subset(kolegyes,group==1)$cholest2
shapiro.test(kulonbseg)




kockaseged<-runif(500,0.5,6.5)
kocka<-round(kockaseged)
kocka
table(kocka)
?chisq.test
chisq.test(table(kocka))

?chisq.test
chisq.test(table(kocka),p=c(0.1,0.1,0.1,0.1,0.1,0.5))

#Ezutan megoldottuk a peldatar 42-es feladatat

?prop.test()

?binom.test()

getAnywhere('prop.test')

prop.test(70, 150,0.5, alternative="two.sided", correct=FALSE)

S <- sqrt(150)*((70/150) - 0.5)/(sqrt(0.5*(1-0.5)))

2*(1-pnorm(abs(S),0,1))


SV <- sqrt(150)*((70/150) - 0.5)/(sqrt((70/150)*(1-(70/150))))

2*(1-pnorm(abs(SV),0,1))


floor(2)

valasz42<-function(n,pertek){
  seged<-0
  
  for(i in 1:floor(n/2)){
    
    if(binom.test(i,n,0.5,alternative="two.sided")[[3]] <=  pertek){
      
      seged<-i
      
    }
  }
  return(c(seged,n-seged))
}


valasz42(150,0.05)

#ellenorzes

binom.test(62,150,0.5,alternative="two.sided")

binom.test(63,150,0.5,alternative="two.sided")