3.2 Area under the curve, Part II. What percent of a standard normal distribution N(μ = 0, ?? = 1) is found in each region? Be sure to draw a graph. (a) Z > 1.13 (b) Z < 0.18 (c) Z > 8 (d) |Z| < 0.5
Z=(x-μ) / 1 =1.13 =(x-0)/1 = 1.13
X=1.13
normalPlot(bounds=(c(1.13,Inf)))
Z=(x-μ) / 1 = 0.18 =(x-0)/1 = 0.18 X = 0.18
normalPlot(bounds=(c(-Inf,0.18)))
(c) Z > 8
Z=(x-μ) / 1 = 8 =(x-0)/1 = 8 X = 8
normalPlot(bounds=(c(8,Inf)))
Z=(x-μ) / 1 = 0.5 =(x-0)/1 = 0.5 X = 0.5
-x < 0.5 < x
normalPlot(mean = 0, sd = 1, bounds = c(-x, x))
3.4 (a) Write down the short-hand for these two normal distributions.
Men: Mean u = 4313 s SD = 583 s Leo = 4948 s
Women: Mean = 5261 s SD = 807 s Mary = 5513 s
Z-scores for Leo = Z=(x-μ) / ??σ
xleo <-4948
meanleo <-4313
sdleo <-583
zleo <-(xleo-meanleo)/sdleo
zleo
## [1] 1.089194
Z-scores for Mary = Z=(x-μ) / ?? Z = (5513-5261) / 807 Z= 0.312
xMary <-5513
meanMary <-5261
sdMary <-807
zMary <-(xMary-meanMary)/sdMary
zMary
## [1] 0.3122677
The Z score of an observation is the number of standard deviations it falls above or below the mean.
For Leo, its Z score is 1.089, the number of standard deviation is above the mean.
For Mary, its Z score is 0.312, the number of standard deviation is below the mean.
Mary get lower Zscore-0.312 than Leo Zscore 1.089, that mean mary get faster time than their respective groups.
PfastLeo <- 1-pnorm(1.089)
PfastLeo
## [1] 0.1380769
PfastMary <- 1-pnorm(0.312)
PfastMary
## [1] 0.3775203
The part b and c would not be changed, because the ranking will not be changed and Zscore still reflect above or below mean. But the part d & e will be changed, “Pnorm” only used for normal distribution.
3.18
height <- c(54,55,56,56,57,58,58,59,60,60,60,61,61,62,62,63,63,63,64,65,65,67,67,69,73)
summary(height)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 54.00 58.00 61.00 61.52 64.00 73.00
mean=61.52 sd=4.58
#prove 68% rule
mean<-61.52
sd<-4.58
ub<-61.52+4.58
lb<-61.52-4.58
area <- pnorm(ub, mean, sd) - pnorm(lb, mean, sd)
area
## [1] 0.6826895
#prove 95% rule
mean<-61.52
sd<-4.58
ub1<-61.52+(4.58*2)
lb1<-61.52-(4.58*2)
area1 <- pnorm(ub1, mean, sd) - pnorm(lb1, mean, sd)
area1
## [1] 0.9544997
#prove 99.7% rule
mean<-61.52
sd<-4.58
ub2<-61.52+(4.58*3)
lb2<-61.52-(4.58*3)
area2 <- pnorm(ub2, mean, sd) - pnorm(lb2, mean, sd)
area2
## [1] 0.9973002
histPlot(height)
qqnormsim(height)
The distriubtion as histogram is similar to normal, and theoretical qualtiles are also keeping the trend of lines.
3.22 Defective rate. A machine that produces a special type of transistor (a component of computers) has a 2% defective rate. The production is considered a random process where each transistor is independent of the others. (a) What is the probability that the 10th transistor produced is the first with a defect?
Dr<-0.02
pgeom((10-1), Dr, lower.tail = TRUE, log.p= FALSE)
## [1] 0.1829272
Dr<-0.02
pgeom(100, Dr, lower.tail = TRUE)
## [1] 0.8700328
Dr<-0.02
Expect<- 1/Dr
Expect
## [1] 50
Standard deviation:
Dr<-0.02
SD<- sqrt((1-Dr)/Dr^2)
SD
## [1] 49.49747
Expected Value:
Dr1<-0.05
Expect1<- 1/Dr1
Expect1
## [1] 20
Standard deviation:
Dr1<-0.05
SD<- sqrt((1-Dr1)/Dr1^2)
SD
## [1] 19.49359
The probability of defective rate was increasing, the expected value to product first defect was decreasing, it mean faster to get defect. And the normal distribution would become narrow due to standard deviation decreased.
3.38 Male children. While it is often assumed that the probabilities of having a boy or a girl are the same, the actual probability of having a boy is slightly higher at 0.51. Suppose a couple plans to have 3 kids. (a) Use the binomial model to calculate the probability that two of them will be boys.
P1<- (((1-0.51)*(0.51^2))*choose(3,2))
P1
## [1] 0.382347
B<-0.51
G<-(1-0.51)
P2<- sum((B*B*G),(B*G*B),(G*B*B))
P2
## [1] 0.382347
The answer is the same with part a.
Because the conbination have 56 group to be calculated, part(b) would be more tedious.
3.42
Serving in volleyball. A not-so-skilled volleyball player has a 15% chance of making the serve, which involves hitting the ball so it passes over the net on a trajectory such that it will land in the opposing team’s court. Suppose that her serves are independent of each other. (a) What is the probability that on the 10th try she will make her 3rd successful serve?
P3<- ((((1-0.15)^7)*(0.15^3))*choose(9,2))
P3
## [1] 0.03895012
For only consideration of 10th serve, the probability is 0.15.
For part a, it is calculated by negative binonmial distribution to count 3rd successful in 10th try.
For part b, it is only calculated the 10th probability.