fn=function(P,D,Z,N){
  ni=(P*(1-P))/(D/Z)^2
  n=ni/(1+(ni/N))
return(n)}

fn(0.5,0.03,1.96,5000)
## [1] 879.4228

Se muestra la funcion para el tamaño muestral (n) empleando el porcentaje del objetivo de estudio (P), el error de muestreo (D), el nivel de confianza (Z) y el tamaño de la poblacion (N).

fx=function(Q,S,D,N){
  Z=qnorm(Q)
  n0=(Z*S/D)^2
  n=n0/(1+(n0/N))
  return(n)
}

fx(0.975,1.5,0.5,20000)
## [1] 34.51347

La anterior funcion representa el tamano de muestra del promedio y se estan usando los valores dados en el ejemplo de la clase, donde la variacion es 1.5, el error de muestreo es 0.5 y el total de la poblacion es 20000. Para el nivel de confianza Z se uso la funcion qnorm.