#1

Función empleada que permite obtener el tamaño muestral (n), por lo tanto, se asignaran los siguientes valores:

P= 0.5 (Porcentaje del objetivo de estudio)

S= 0.04 (Error de muestreo)

Z= 1.96 (Nivel de confianza)

N= 3000 (Población)

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

f1(0.5,0.04,1.96,3000)
## [1] 500.1736

Interpretación: Se obtuvo un aproximado de 500 arboles los cuales se deben muestrear.

#2

Función empleada que permita determinar el tamaño de la muestras (n), por medio de los siguientes valores:

S= 1.5 (Variación)

E= 0.5 (Error de muestreo)

Z= 0.95 (Nivel de confianza)

N= 20000 (Población)

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

f2(1.5,0.5,0.95,20000)
## [1] 34.51347