?prop.test()

?binom.test()

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

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

getAnywhere('binom.test')

?pbinom

2*pbinom(70,150,0.5)

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

S

abs(-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))


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

eredmeny[[3]]

elsofuggveny<-function(a,b){
  
  return(a+2*b)  
  
}

elsofuggveny(1,2)

?lfloor

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

valasz42(150,0.05,0.5)

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

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

valasz42(150,0.05,0.5)


?binom.test()


valasz43<-function(n,pertek,p0){
  
  seged<-(ceiling(n*p0))  
  
  for(i in (ceiling(n*p0)):n) {
    
    if(binom.test(i, n, p0, alternative="greater")[[3]] > pertek ){
      
      seged<-i  
      
    }
    
  }
  
  return(seged+1)     
  
}

valasz43(200,0.05,0.6)

binom.test(132,200,0.6, alternative="greater")
binom.test(131,200,0.6, alternative="greater")