pnorm(158, mean=188, sd=14)
[1] 0.01606229
Exercise 1 (The normal table) Let \(Z \sim N(0,1)\) be a standard normal random variable, and compute;
Note, this exercise can be solved using the standard normal table or using the R functions pnorm
and qnorm
.
Exercise 2 (Exercise in standardization/transformation) If \(X \sim N(3,2)\), compute the probabilities
Exercise 3 (Hemoglobin) The hemoglobin (Hb) value in a male population is normally distributed with mean 188 g/L and standard deviation 14 g/L.
pnorm(158, mean=188, sd=14)
[1] 0.01606229
Exercise 4 (Pill) A drug company is producing a pill, with on average 12 mg of active substance. The amount of active substance is normally distributed with mean 12 mg and standard deviation 0.5 mg, if the production is without problems. Sometimes there is a problem with the production and the amount of active substance will be too high or too low, in which case the pill has to be discarded. What should the upper and lower critical values (limits for when a pill is acceptable) be in order not to discard more than 1/20 pills from a problem free production?
\(H_0: \mu=12\) \(H_1: \mu \neq 12\)
Search \(x_{low}\) and \(x_{up}\) such that \(P(x_{low} < X < x_{up}) = 0.05\)
From table we know that \(P(-1.96 < Z < 1.96) = 0.05\)
\(Z = \frac{X - \mu_0}{\sigma_0} = \frac{X-12}{0.5}\), hence
\(-1.96 < Z < 1.96 \iff -1.96 < \frac{X-12}{0.5} < 1.96 \iff 12-1.96*0.5 < X < 12+1.96*0.5 \iff 11.02 < X < 12.98\)
The lower and upper critical values of active substance should be 11.02 and 12.98 mg.
Exercise 5 (Exercise in distribution of sample mean) The total cholesterol in population (mg/dL) is normally distributed with \(\mu = 202\) and \(\sigma = 40\).
Exercise 6 (Amount of active substance) The amount of active substance in a pill is stated by the manufacturer to be normally distributed with mean 12 mg and standard deviation 0.5 mg. You take a sample of five pills and measure the amount of active substance to; 13.0, 12.3, 12.6, 12.5, 12.7 mg.
[Note: a-c were already computed in the descriptive statistics session.]
<- c(13.0, 12.3, 12.6, 12.5, 12.7)
x <- length(x)
n <- sum(x)/n) (m
[1] 12.62
[1] 0.067
[1] 0.2588436
[1] 0.2236068
Note, here the known standard deviation, \(\sigma=0.5\) is used.