print ("12.92 is percentile for Z = -0.5 ")
## [1] "12.92 is percentile for Z = -0.5 "
paste( "Result is 69.15-30.85 ",100-12.92,"%")
## [1] "Result is 69.15-30.85 87.08 %"
normalPlot(bounds=(c(-1.13,Inf)))
print(" 0.18 will be in 57.14% ")
## [1] " 0.18 will be in 57.14% "
normalPlot(bounds=(c(-Inf,0.18)))
normalPlot(bounds=(c(8,Inf)))
print("-0.5 < Z < 0.5 ")
## [1] "-0.5 < Z < 0.5 "
print ("30.85 percentile for Z = -0.5 ")
## [1] "30.85 percentile for Z = -0.5 "
print ("69.15 percentile for Z = 0.5 ")
## [1] "69.15 percentile for Z = 0.5 "
paste( "Result is 69.15-30.85 ", 69.15-30.85 , "%")
## [1] "Result is 69.15-30.85 38.3 %"
normalPlot(bounds=(c(-0.5,0.5)))
men N(\(\mu\) = 4313, \(\sigma\) = 583)
women N(\(\mu\)= 5261, \(\sigma\) = 807)
Z_Leo <- (4948-4313)/583
Z_Leo
## [1] 1.089194
Z_Mary <- (5513-5261)/807
Z_Mary
## [1] 0.3122677
According to Leo’s Z score his time was 1.09 standard deviations above the mean. Mary’s Z score suggest that her time was 0.31 standard deviations above the mean.
Mary Ranked higher in her group her z score was 0.31 while Leo’s Z score was 1.09 . In this case I believe that mary ranked higher because a lower z score means she was among the few people who finished faster.
Leo finished faster than 86.21% of his group.
pnorm(1.09)
## [1] 0.8621434
Mary finished faster than 62.17% of her group.
pnorm(0.31)
## [1] 0.6217195
The Z scores would stay the same. However the percentiles would change if the distribution was not normal. So the answers to parts d and e would be different if the distributions of finishing times were not nearly normal.
female_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(female_height)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 54.00 58.00 61.00 61.52 64.00 73.00
hist(female_height,xlab = "Height of Female College Student in cm", main = "Histogram For Female Height")
qqnormsim(female_height)
pnorm(61.52+4.58,mean=61.52,sd=4.58)
## [1] 0.8413447
pnorm(61.52+2*4.58,mean=61.52,sd=4.58)
## [1] 0.9772499
pnorm(61.52+3*4.58,mean=61.52,sd=4.58)
## [1] 0.9986501
Based on the information it does not seem as thought the heights follow the 68-95-99.7% rule
hist(female_height, probability = TRUE)
x <- 50:75
y <- dnorm(x = x, mean = 61.52, sd = 4.58)
lines(x = x, y = y, col = "blue")
qqnorm(female_height)
qqline(female_height)
sim_norm <- rnorm(n = length(female_height), mean = 61.52, sd = 4.58)
I don’t think it follows a normal distribution. The data points are close to the line in the qq plot but there is also outliers on the top end and the bottom end that are pretty far away from the line. I think it is close to a normal distribution but not quite normal distribution.
Using the pgeom function we get the follwoing results
pgeom(10-1,0.02)
## [1] 0.1829272
Using the pgeom function we get the follwoing results
1-pgeom(100,0.02)
## [1] 0.1299672
\(\mu\)=1/p so the answer is 1/0.02
trials before the first success
\(\mu\)= 50
\(\sigma\)=sqrt((1-p)/p^2)
\(\sigma\)= 49.4974747
\(\mu\)=1/p so the answer is 1/0.05
trials before the first success
\(\mu\)= 20
\(\sigma\)=sqrt((1-p)/p^2)
\(\sigma\)= 19.4935887
Based on the answer to c and d if we increase the probability the value of the mean and the standard deviation will decrease. So, in the case when the probability was lower the mean was 50 but when probability increased the mean decreased. Similarly for the standard deviation first when probability was lower it was 49.497 but when probability increased the value for Standard deviation became 19.493.
P(having a boy)=0.51 , n=3 and k=2 we will use dbinom function and plug in the values
dbinom(2,3,0.51)
## [1] 0.382347
BBG BGB GBB
#
probability = (0.51^2)*0.49*3
probability
## [1] 0.382347
The values I got for a and b are the same.
I think that the apporach from Part b where you have to use the addition rule for disjoint it will be more tedious because of the number of scenerios and it will just be hard to draw all the combinations.
#WE will use the choose function to calculate this
paste ("P(making 3rd successful serve on 10th try)=",choose(9,2)*0.15^3*0.85^7)
## [1] "P(making 3rd successful serve on 10th try)= 0.0389501162261719"
The answer is 0.15 since each serve is independant so the probability of the 10th attempt will be same as the previous 9.
It seems as though parts a and b are quite similar in terms of having success in the 10th serve. However, if we read the question carefully we can understand that they are quite different in part a the question is referring to the number of successes however in part b the question is asking about what is the probability that she makes a successful serve on 10th try. Since, all events are indepenedant a succesfull server on 10th try would be same as any other try.