An R Introduction to Statistics

Lower Tail Test of Population Mean with Known Variance

The null hypothesis of the lower tail test of the population mean can be expressed as follows:

μ ≥ μ0

where μ0 is a hypothesized lower bound of the true population mean μ.

Let us define the test statistic z in terms of the sample mean, the sample size and the population standard deviation σ :

z = ¯x−√μ0-
    σ∕  n

Then the null hypothesis of the lower tail test is to be rejected if z ≤−zα , where zα is the 100(1 α) percentile of the standard normal distribution.

Problem

Suppose the manufacturer claims that the mean lifetime of a light bulb is more than 10,000 hours. In a sample of 30 light bulbs, it was found that they only last 9,900 hours on average. Assume the population standard deviation is 120 hours. At .05 significance level, can we reject the claim by the manufacturer?

Solution

The null hypothesis is that μ 10000. We begin with computing the test statistic.

> xbar = 9900            # sample mean 
> mu0 = 10000            # hypothesized value 
> sigma = 120            # population standard deviation 
> n = 30                 # sample size 
> z = (xbarmu0)/(sigma/sqrt(n)) 
> z                      # test statistic 
[1] 4.5644

We then compute the critical value at .05 significance level.

> alpha = .05 
> z.alpha = qnorm(1alpha) 
z.alpha               # critical value 
[1] 1.6449

Answer

The test statistic -4.5644 is less than the critical value of -1.6449. Hence, at .05 significance level, we reject the claim that mean lifetime of a light bulb is above 10,000 hours.

Alternative Solution

Instead of using the critical value, we apply the pnorm function to compute the lower tail p-value of the test statistic. As it turns out to be less than the .05 significance level, we reject the null hypothesis that μ 10000.

> pval = pnorm(z) 
> pval                   # lower tail pvalue 
[1] 2.5052e06