Section 2.1

7

  1. OF had the most MVPs.

  2. 15 MVPs played first base.

  3. 15 more MVPS played outfield than first base.

  4. All 3 outfield positions are different postions, therefore the graph could be misleading as to the certain position that garners the most MVPs.

9

  1. About 70% believe divorce is morally acceptable.

  2. 55.2 million Americans believe divorce is morally wrong.

  3. Inferential, since it is a generalization of observed data.

11

  1. The proportion for 18-34 year olds is 0.42. The proportion for 34-44 year olds is 0.61.

  2. The greatest proportion group is 55+

  3. The greatest porportion that is less likely to buy a product is the 18-34 age group.

  4. As age increases, so does the likelihood that a respondent will be more likely to buy a product that is made in America.

13

  1. 0.0262, 0.0678, 0.1156, 0.2632, 0.5272
datt <- c(125, 324, 552, 1257, 2518)

rel.freqq <- datt/sum(datt)

categoriess <- c("Never", "Rarely", "Sometimes", "Most of time", "Always")


answerr <- data.frame(categoriess,rel.freqq)

answerr
##    categoriess  rel.freqq
## 1        Never 0.02617253
## 2       Rarely 0.06783920
## 3    Sometimes 0.11557789
## 4 Most of time 0.26319095
## 5       Always 0.52721943

  1. 52.72%

  2. 9.40%

barplot(datt,main="Seat Belt Usage",names=categoriess, col =c("red","blue","green","yellow","orange"))

barplot(rel.freqq,main="Seat Belt Usage",names=categoriess, col =c("red","blue","green","yellow","orange"))

pie(datt,main="Seat Belt Usage",labels=categoriess, col =c("red","blue","green","yellow","orange"))

  1. The statement is inferential since it is inferring something about the entire population based on the results of a sample survey.

15

  1. Total adults surveyed are 1025 people.
dat <- c(377,192,132,81,243)

rel.freq <- dat/sum(dat)

categories <- c("More 1", "Up to 1", "Few a week", "Few a month", "Never")


answer <- data.frame(categories,rel.freq)

answer
##    categories   rel.freq
## 1      More 1 0.36780488
## 2     Up to 1 0.18731707
## 3  Few a week 0.12878049
## 4 Few a month 0.07902439
## 5       Never 0.23707317

  1. 0.2371 almost 24%

barplot(dat,main="Internet Usage",names=categories, col =c("red","blue","green","yellow","orange"))

barplot(rel.freq,main="Internet Usage(Relative Freq)",names=categories, col =c("red","blue","green","yellow","orange"))

pie(dat,main="Internet Usage",labels=categories, col =c("red","blue","green","yellow","orange"))

  1. The statement provides an estime, but no level of confidence is given.

Section 2.2

9

  1. 8

  2. 2

  3. 15 times

  4. The value of 5 was observed 4 more times than the value of 4.

  5. 15% of the time a 7 was observed.

  6. The distribution is approximately bell-shaped.

10

  1. 4 cars

  2. 9 weeks.

  3. 0.173 17.3% of the time 9 cars were sold.

  4. Right skewed.

11

  1. Total frequency us 200

  2. 10

  3. 60-69 frequency 2, 70-79 frequency 3, 80-89 frequency 13, 90-99 frequency 42, 100-109 frequency 58, 110-119 frequency 40, 120-129 frequency 31, 130-139 frequency 8, 140-149 frequency 2, 150-159 frequency 1.

  4. The class 100-109 has the highest frequency.

  5. The class 150-159 has the lowest frequency.

  6. 5.5%

  7. No IQs above 159.

12

  1. 0-1400 width.

  2. Classes: 0-200, 201-400, 401-600, 601-800, 801-1000, 1001-1200, 1201-1400

  3. 0-200 has the highest frequency

  4. Skewed right.

  5. There are more frequently observed deaths between 0-200 than there were between 1200-1400. Also, safe roads is not a reliable variable.

13

  1. Likely skewed right.

  2. Likely bell shaped.

  3. Likely skewed right.

  4. Likely skewed left.

14

  1. Likely skewed left.

  2. Uniform

  3. Likely skewed left.

  4. Bell shaped.