## 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