View source for Resource assessment exercises: estimating a proportion

{{construction}}
As mentioned in the introduction there are two tree species in the example population: beech trees and oak trees. Suppose we would like to estimate the proportion of beech trees by looking at a sample of <math>n=50</math> again.

     
<pre>
s.species <- sample(trees$species, size = 50)
s.species

##  [1] 2 1 2 1 2 2 2 2 2 2 2 1 2 2 2 1 2 2 2 2 2 2 2 1 1 2 1 2 2 1 2 1 1 1 1 1 1 2
## [39] 2 2 2 2 2 2 2 2 2 1 1 2
</pre>


The 1s are oak trees and the 2s are beech trees. The proportion of beech trees is estimated by

<math>\hat{p}=frac{y_{i\in s}}{n}</math>

In [[:wikipedia:R_(programming_language)|R]]:

    
<pre>
n.beech <- length(s.species[s.species == 2])
n.beech

## [1] 34
  
p <- n.beech/n
p

## [1] 0.68
</pre>

We estimated that 68% of the trees in the population are beech trees. The estimated number of oak trees in the population is <math>\hat{q}=1-\hat{p}</math>. The standard error of the estimated proportion <math>\hat{p}</math> is given by,

{{EquationRef|equation=$s_{\hat{p} }=\sqrt{\frac{\hat{p}\times\hat{q} }{n-1} }$|2}}

In [[:wikipedia:R_(programming_language)|R]]:
        
<pre>
q <- 1 - p
sqrt((p * q)/(n - 1))

## [1] 0.06664
</pre>

Confidence intervals can be constructed in the same way as for the mean estimator above.

Since we know the species of each tree in the population, we can calculate the true proportion of beech trees,

<pre>
nrow(trees[trees$species == 2, ])/nrow(trees) # true proportion of beech trees

## [1] 0.6702
</pre>

[[category:Resource assessment basics in R (2014)|Estimating a proportion]]