## Se desea construir una función la cuál permita obtener el tamaño muestral (n) a partir del tamaño de la población (N), el nivel de confianza (Z), el error de muestreo (D) y el porcentaje del objetivo de estudio (P)

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

funcion(0.2,0.04,1.96,4500)
## [1] 353.9442
## Se desea realizar una función que calcule el tamaño de muestra a partir del tamaño de la población (N), la desviación (S), el error de muestra (E) y el porcentaje de confianza (C)


funcion2=function(N,S,E,C){
  Z=qnorm(C)
  n0= ((Z*S)/E)^2
  nf= n0/(1+n0/N)
  return(nf)
}
funcion2(15000,1.8,0.5,0.975)
## [1] 49.62061