Ejercicio de estimación del tamaño de muestra n

Ejercicio 1

Generar una funcion a la cual se le asigne un valor para P, el error muestral, un nivel de confianza y la poblacion N, y me entregue el tamaño de muestra n con el ajuste final.

nproporcion=function(e,p,Z,N){
  Zf=qnorm(p = ((1-Z)/2))
  n0=(p*(1-p))/((e/Zf)^2)
  n=n0/(1+(n0/N))
  return(n)
}

nproporcion(0.03,0.5,0.95,5000)

## [1] 879.3961

Ejercicio 2

Generar una funcion que, conociendo los valores de S, el error, Z y N, pueda determinar el tamaño de muestra n.

npromedio=function(S,e,Z,N){
  z=qnorm(p = ((1-Z)/2))
  n0=(S^2)/((e/z)^2)
  n=n0/(1+(n0/N))
  return(n)
}

npromedio(1.5,0.5,0.95,20000)

## [1] 34.51347