1. There are 540 identical plastic chips numbered 1 through 540 in a box. What is the probability of reaching into the box and randomly drawing the chip numbered 505? Express your answer as a fraction or a decimal number rounded to four decimal places.
round(1/540, 4)
## [1] 0.0019
2. Write out the sample space for the given experiment. Separate your answers using commas.When deciding what you want to put into a salad for dinner at a restaurant, you will choose one of the following extra toppings: asparagus, cheese. Also, you will add one of following meats: eggs, turkey. Lastly, you will decide on one of the following dressings: French, vinaigrette. (Note: Use the following letters to indicate each choice: A for asparagus, C for cheese, E for eggs, T for turkey, F for French, and V for vinaigrette.)
Order<-c("Salad#1","Salad#2","Salad#3","salad#4","Salad#5","Salad#6","Salad#7","Salad#8")
Topping <- c("A","C","A","C","A","C","A","C")
Meat <- c('E','T')
Dressing <- c('F','V')
Saladfordineer<- data.frame(Order,Topping, Meat, Dressing)
Saladfordineer
## Order Topping Meat Dressing
## 1 Salad#1 A E F
## 2 Salad#2 C T V
## 3 Salad#3 A E F
## 4 salad#4 C T V
## 5 Salad#5 A E F
## 6 Salad#6 C T V
## 7 Salad#7 A E F
## 8 Salad#8 C T V
3. A card is drawn from a standard deck of 52 playing cards. What is the probability that the card will be a heart and not a face card? Write your answer as a fraction or a decimal number rounded to four decimal places.
round(10/52,4)
## [1] 0.1923
4. A standard pair of six-sided dice is rolled. What is the probability of rolling a sum less than 6? Write your answer as a fraction or a decimal number rounded to four decimal places.
round(10/36 ,4)
## [1] 0.2778
5. A pizza delivery company classifies its customers by gender and location of residence. The research department has gathered data from a random sample of 2001 customers. The data is summarized in the table below.
Males <- c(233, 159, 102, 220, 250)
Females <- c(208, 138, 280, 265, 146)
Males <- round(sum(Males)/(sum(Males) + sum(Females)),4)
cat("Probability of Male customer is:", Males)
## Probability of Male customer is: 0.4818
6. Three cards are drawn with replacement from a standard deck. What is the probability that the first card will be a club, thesecond card will be a black card, and the third card will be a face card? Write your answer as a fraction or a decimal number rounded to four decimal places.
CClub <- 13/52
CBlack <- 26/52
CFace <- 12/52
round( CClub * CBlack * CFace, 4)
## [1] 0.0288
7. Two cards are drawn without replacement from a standard deck of 52 playing cards. What is the probability of choosing a spade for the second card drawn, if the first card, drawn without replacement, was a heart? Write your answer as a fraction or a decimal number rounded to four decimal places.
Seconddrawn<-13/52
Firstdrawn<-13/51
probsecondandfirst<-Seconddrawn*Firstdrawn
round(probsecondandfirst/Seconddrawn,4)
## [1] 0.2549
8. Two cards are drawn without replacement from a standard deck of 52 playing cards. What is the probability of choosing a heart and then, without replacement, a red card? Write your answer as a fraction or a decimal number rounded to four decimal places.
Seconddrawn<-13/52
Firstdrawn<-25/51
round(Seconddrawn*Firstdrawn,4)
## [1] 0.1225
9. There are 85 students in a basic math class. The instructor must choose two students at random. What is the probability that a junior female and then a freshmen male are chosen at random? Write your answer as a fraction or a decimal number rounded to four decimal places.
juniorfemale <- 4/85
freshmenmale <- 12/84
ProbRandom <- round(juniorfemale * freshmenmale, 4)
ProbRandom
## [1] 0.0067
10. Out of 300 applicants for a job, 141 are male and 52 are male and have a graduate degree.
Step 1. What is the probability that a randomly chosen applicant has a graduate degree, given that they are male? Enter your answer as a fraction or a decimal rounded to four decimal places.
#Step1
Male <- 141/300
Malewithdegree<- 52/300
Prob<-round(Malewithdegree/Male, 4)
cat("Probability is:", Prob)
## Probability is: 0.3688
Step 2. If 102 of the applicants have graduate degrees, what is the probability that a randomly chosen applicant is male, given that the applicant has a graduate degree? Enter your answer as a fraction or a decimal rounded to four decimal places.
#Step2
Graduates <- 102/300
Prob2<-round(Malewithdegree / Graduates, 4)
cat("Probability is:", Prob2)
## Probability is: 0.5098
11. A value meal package at Ron’s Subs consists of a drink, a sandwich, and a bag of chips. There are 6 types of drinks to choose from, 5 types of sandwiches, and 3 types of chips. How many different value meal packages are possible?
Drink <- 6
Sandwich <- 5
Chip <- 3
Combination <- Drink * Sandwich * Chip
Combination
## [1] 90
12. A doctor visits her patients during morning rounds. In how many ways can the doctor visit 5 patients during the morning rounds?
manyways <- factorial(5)
manyways
## [1] 120
13. A coordinator will select 5 songs from a list of 8 songs to compose an event’s musical entertainment lineup. How many different lineups are possible?
P <-function(n,k){
factorial(n) / (factorial(n-k))
}
print(P(8,5))
## [1] 6720
14. A person rolls a standard six-sided die 9 times. In how many ways can he get 3 fours, 5 sixes and 1 two?
numbersofways <- factorial(9) / (factorial(3) * factorial(5) * factorial(1))
numbersofways
## [1] 504
16. 3 cards are drawn from a standard deck of 52 playing cards. How many different 3-card hands are possible if the drawing is done without replacement?
Combination <-function(n,k){
factorial(n) / (factorial(n-k)*factorial(k))
}
numbersofways <- Combination(52,3)
numbersofways
## [1] 22100
17. You are ordering a new home theater system that consists of a TV, surround sound system, and DVD player. You can choose from 12 different TVs, 9 types of surround sound systems, and 5 types of DVD players. How many different home theater systems can you build?
numbersofways <- 12 * 9 * 5
numbersofways
## [1] 540
18. You need to have a password with 5 letters followed by 3 odd digits between 0 - 9 inclusively. If the characters and digits cannot be used more than once, how many choices do you have for your password?
P <-function(n,k){
factorial(n) / (factorial(n-k))
}
numbersofways<- P(26,5) * P(5,3)
numbersofways
## [1] 473616000
19.Evaluate the following expression. 9P4
P <-function(n,k){
factorial(n) / (factorial(n-k))
}
numbersofways<- P(9,4)
numbersofways
## [1] 3024
20.Evaluate the following expression. 11C8
P <-function(n,k){
factorial(n) / (factorial(n-k)*factorial(k))
}
numbersofways<- P(11,8)
numbersofways
## [1] 165
21.Evaluate the following expression. (12 P8)/(12C4)
Permutation <- function(n,r){
return(factorial(n)/(factorial(n-r)))
}
print(Permutation(12,8) / (Combination(12,4)))
## [1] 40320
22. The newly elected president needs to decide the remaining 7 spots available in the cabinet he/she is appointing. If there are 13 eligible candidates for these positions (where rank matters), how many different ways can the members of the cabinet be appointed?
Permutation <- function(n,r){
return(factorial(n)/(factorial(n-r)))
}
Permutation(13, 7)
## [1] 8648640
23. In how many ways can the letters in the word ‘Population’ be arranged?
factorial(10) / (factorial(2) * factorial(2))
## [1] 907200
24.Consider the following data:
x <- c(5, 6, 7, 8, 9)
px<- c(0.1, 0.2, 0.3, 0.2, 0.2)
datatable <- data.frame(x,px)
print(datatable)
## x px
## 1 5 0.1
## 2 6 0.2
## 3 7 0.3
## 4 8 0.2
## 5 9 0.2
Step 1. Find the expected value E( X ). Round your answer to one decimal place.
expectedvalue <- sum(datatable$x * datatable$px)
expectedvalue
## [1] 7.2
Step 2. Find the variance. Round your answer to one decimal place.
variance <- sum((datatable$x - expectedvalue)^2 * datatable$px)
variance
## [1] 1.56
Step 3. Find the standard deviation. Round your answer to one decimal place.
standard_deviation <- sqrt(variance)
standard_deviation
## [1] 1.249
Step 4. Find the value of P(X >= 9). Round your answer to one decimal place.
with(datatable, sum(px[x >= 9]))
## [1] 0.2
Step 5. Find the value of P(X <= 7). Round your answer to one decimal place.
with(datatable, sum(px[x <= 7]))
## [1] 0.6
25.Suppose a basketball player has made 188 out of 376 free throws. If the player makes the next 3 free throws, I will pay you $23. Otherwise you pay me $4.
Step 1. Find the expected value of the proposition. Round your answer to two decimal places.
px <- 188/376
expected_value <- round(23*(px^3) - 4*(1-px^3), 2)
expected_value
## [1] -0.62
Step 2. If you played this game 994 times how much would you expect to win or lose? (Losses must be entered as negative.)
expected_value * 994
## [1] -616.28
26. Flip a coin 11 times. If you get 8 tails or less, I will pay you $1. Otherwise you pay me $7.
Step 1. Find the expected value of the proposition. Round your answer to two decimal places.
Pwin <- pbinom(8, size=11, prob=1/2)
expected_value <- round(1 * Pwin - 7 * (1-Pwin), 2)
expected_value
## [1] 0.74
Step 2. If you played this game 615 times how much would you expect to win or lose? (Losses must be entered as negative.)
expected_value * 615
## [1] 455.1
27.If you draw two clubs on two consecutive draws from a standard deck of cards you win $583. Otherwise you pay me $35. (Cards drawn without replacement.)
Step 1. Find the expected value of the proposition. Round your answer to two decimal places.
Pwin <- 13/52 * 12/51
expected_value <- round(Pwin * 583 - (1 - Pwin) * 35, 2)
expected_value
## [1] 1.35
Step 2. If you played this game 632 times how much would you expect to win or lose? (Losses must be entered as negative.)
expected_value * 632
## [1] 853.2
28.A quality control inspector has drawn a sample of 10 light bulbs from a recent production lot. If the number of defective bulbs is 2 or less, the lot passes inspection. Suppose 30% of the bulbs in the lot are defective. What is the probability that the lot will pass inspection? (Round your answer to 3 decimal places)
Passing <- pbinom(2, size = 10, prob = .3)
print(round(Passing,3))
## [1] 0.383
29.A quality control inspector has drawn a sample of 5 light bulbs from a recent production lot. Suppose that 30% of the bulbs in the lot are defective. What is the expected value of the number of defective bulbs in the sample? Do not round your answer.
5 * .3
## [1] 1.5
30.The auto parts department of an automotive dealership sends out a mean of 5.5 special orders daily. What is the probability that, for any day, the number of special orders sent out will be more than 5? (Round your answer to 4 decimal places)
round(ppois(5, 5.5, lower=FALSE), 4)
## [1] 0.4711
31. At the Fidelity Credit Union, a mean of 5.7 customers arrive hourly at the drive-through window. What is the probability that, in any hour, more than 4 customers will arrive? (Round your answer to 4 decimal places)
round(ppois(4, 5.7, lower=FALSE), 4)
## [1] 0.6728
32. The computer that controls a bank’s automatic teller machine crashes a mean of 0.4 times per day. What is the probability that, in any 7-day week, the computer will crash no more than 1 time? (Round your answer to 4 decimal places)
comp <- 0.4 * 7
round(ppois(1, comp), 4)
## [1] 0.2311
33. A town recently dismissed 8 employees in order to meet their new budget reductions. The town had 6 employees over 50 years of age and 19 under 50. If the dismissed employees were selected at random, what is the probability that more than 1 employee was over 50? Write your answer as a fraction or a decimal number rounded to three decimal places.
round(phyper(1, m=6, n=19, 8, lower.tail=FALSE), 3)
## [1] 0.651
34.Unknown to a medical researcher, 10 out of 25 patients have a heart problem that will result in death if they receive the test drug. Eight patients are randomly selected to receive the drug and the rest receive a placebo. What is the probability that less than 7 patients will die? Write your answer as a fraction or a decimal number rounded to three decimal places.
round(phyper(6, m=10, n=15, 8), 3)
## [1] 0.998