## Script: calculoTamMuestral.R
## Sobre?: calculo del tamanho muestral
##
## Profesor: Christian Salas Eljatib
## E-mail: cseljatib AT gmail DOT com
## Web: https://eljatib.com
#======================================


#supuestos del ejercicio
N <- 400
cv.p <- 35
ema <- 10
conf<- 95
alpha<- 1-(conf/100); p<- 1-(alpha/2)
n<-100000000; df<- n-1
ttab<- qt(p, df) #funcion qt()
ttab

n.ast1<-(N*ttab^2*cv.p^2)/(
  (N*ema^2)+(ttab^2*cv.p^2)
                          )
n.ast1

###iteracion1
n <- n.ast1;df<- n-1
ttab<- qt(p, df);ttab
n.ast2<-(N*ttab^2*cv.p^2)/((N*ema^2)+(ttab^2*cv.p^2))
n.ast2

###iteracion2
n <- n.ast2;df<- n-1
ttab<- qt(p, df); ttab
n.ast3<-(N*ttab^2*cv.p^2)/((N*ema^2)+(ttab^2*cv.p^2))
n.ast3

###iteracion3
n <- n.ast3;df<- n-1
ttab<- qt(p, df); ttab
n.ast4<-(N*ttab^2*cv.p^2)/((N*ema^2)+(ttab^2*cv.p^2))
n.ast4

#aca ya se estabilizo

#╔═════════════════╗
#║ Fin del script! ║
#║ Atte. El profe  ║
#╚═════════════════╝