Section 2.1

7

  1. type answer here. Outfield (OF)

  2. type answer here. 15 MVP’s played 1B

  3. type answer here. 15 more MVP’s played outfield than MVP’s who played 1B.

  4. type answer here. Within OF, there is three more positions to account for. So all three of those positions should be accounted for when counting MVP’s.

9

  1. type answer here.69% of respondants beleive that divorce is morally acceptable.

  2. type answer here. 240million multiplied by .23 is 55.2million. So 55.2million American adults believe divorce is morally wrong.

  3. type answer here.The statement is inferential becuase it is a generalization based on the observed data.

11

  1. type answer here. The proportion of 18-34 year olds are .42 more likely to buy an American made product. For 34-44 year olds, that proportion is .61.

  2. type answer here. The age group of 55+ is most likely to buy American made products.

  3. type answer here.The 18-34 age group is the least likely to buy American made products.

  4. type answer here. As age increases, so does the likelihood of buying American made goods.

13

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. type answer here. 52.72% of respondents say they wear their seat belt “always”

  2. type answer here. 9.4% of respondents said that they “never” or “rarely” wear their seat belt.

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. type answer here. Inferential statement because the CDC would be inferring something about all college students based on the results of their survey.

15

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. type answer here. About 24% of the respondents say they “never” use the internet.

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. type answer here.The statement is an estimate without any confidence level.

Section 2.2

9

  1. type answer here. 8 has the highest frequency.

  2. type answer here. 2 has the lowest frequency.

  3. type answer here. 7 was observed 15 times.

  4. type answer here.5 was observed 11 times and 4 was observed 7 times. 5 was counted 4 more times than 4 was.

  5. type answer here. 15% of the rolls, a 7 was produced.

  6. type answer here. The approximately a normal distribution.

10

  1. type answer here. 4 is the most frequent amount of car sales per week.

  2. type answer here. 9 weeks only 2 cars were sold.

  3. type answer here.17.3% of the weeks, only two cars were sold.

  4. type answer here. The data is skewed right.

11

  1. type answer here. 200 students were sampled.

  2. type answer here. 70-60=10

  3. type answer here. For each group in a progression order–2,3,13, 42, 58, 40, 31,8,2,1

  4. type answer here. The class 100-109 has the highest frequency.

  5. type answer here. 150-159 has the lowest frequency.

  6. type answer here. 5.5%

  7. type answer here. No, there were no IQ’s above 159.

12

  1. type answer here. 200

  2. type answer here.Alcohol related traffic fatalities

  3. type answer here.0-200

  4. type answer here. Skewed right

  5. type answer here. There are more people in Texas, so there is a higher chance of people dying.

13

  1. type answer here. skewed right because not a lot of poeple make more than the mean income.

  2. type answer here.Likely bell shaped because most scores will be right around the mean, with relatively the same amount of people on either side.

  3. type answer here. Skewed right, not a lot of households have 5+ people.

  4. type answer here. Skewed left, Alzheimer’s usually affects older patients.

14

  1. type answer here. Skewed right, not a lot of people have more than 1-3 drinks per week.

  2. type answer here. Uniform because the school can only have a seet amount of kids with them cycling out.

  3. type answer here. Skewed left, most young people do not have hearing aids.

  4. type answer here. Bell shaped curve, for every male that is 6’8, there is one who is 5’0.