REALLY NEED AN ALGEBRA 1 GENIUS RIGHT NOW!
1 answer:
You might be interested in
Answer:
(a) 0.343
(b) 0.657
(c) 0.189
(d) 0.216
(e) 0.353
Step-by-step explanation:
Let P(a vehicle passing the test) = p
Let P(a vehicle not passing the test) = q
q = 1 - p
q = 1 - 0.7 = 0.3
(a) P(all of the next three vehicles inspected pass) = P(ppp)
= 0.7 × 0.7 × 0.7
= 0.343
(b) P(at least one of the next three inspected fails) = P(qpp or qqp or pqp or pqq or ppq or qpq or qqq)
= (0.3 × 0.7 × 0.7) + (0.3 × 0.3 × 0.7) + (0.7 × 0.3 × 0.7) + (0.7 × 0.3 × 0.3) + (0.7 × 0.7 × 0.3) + (0.3 × 0.7 × 0.3) + (0.3 × 0.3 × 0.3)
= 0.147 + 0.063 + 0.147 + 0.063 + 0.147 + 0.063 + 0.027
= 0.657
(c) P(exactly one of the next three inspected passes) = P(pqq or qpq or qqp)
= (0.7 × 0.3 × 0.3) + (0.3 × 0.7 × 0.3) + (0.3 × 0.3 × 0.7)
= 0.063 + 0.063 + 0.063
= 0.189
(d) P(at most one of the next three vehicles inspected passes) = P(pqq or qpq or qqp or qqq)
= (0.7 × 0.3 × 0.3) + (0.3 × 0.7 × 0.3) + (0.3 × 0.3 × 0.7) + (0.3 × 0.3 × 0.3)
= 0.063 + 0.063 + 0.063 + 0.027
= 0.216
(e) Given that at least one of the next 3 vehicles passes inspection, what is the probability that all 3 pass (a conditional probability)?
P(at least one of the next three vehicles inspected passes) = P(ppp or ppq or pqp or qpp or pqq or qpq or qqp)
= (0.7 × 0.7 × 0.7) + (0.7 × 0.7 × 0.3) + (0.7 × 0.3 × 0.7) + (0.3 × 0.7 × 0.7) + (0.7 × 0.3 × 0.3) + (0.3 × 0.7 × 0.3) + (0.3 × 0.3 × 0.7)
= 0.343 + 0.147 + 0.147 + 0.147 + 0.063 + 0.063 + 0.063
= 0.973
With the condition that at least one of the next 3 vehicles passes inspection, the probability that all 3 pass is,
= 0.353
Step-by-step explanation:
Using R, I used the following code to create a histogram:
bowling.scores <- c(87, 104, 79, 94, 117, 82, 72, 116, 105, 95, 88, 93, 109, 119, 75,
103, 112, 97, 73, 85, 91, 86, 102, 99, 106, 84, 98, 83, 81, 96, 92)
data.frame(bowling.scores)
ggplot(data.frame(bowling.scores), aes(x=bowling.scores)) +
xlim(c(70, 120)) +
scale_y_continuous(breaks = seq(0, 10, by=1), "Frequency") +
geom_histogram(breaks=seq(70, 120, by=10), color="black", fill="grey60") +
labs(title="Histogram of Bowling Scores", x="Bowling Scores", y="Frequency")
