Section 2.1

7

  1. type answer here. OF
  2. type answer here. 15
  3. type answer here. 15

  4. type answer here. All players that play left field, center field, and right field are considered outfielders, which is a large category containing the majority of MVP’s, which makes the graph misleading. Each of the positions in the outfield category should be seperated. 9

  5. type answer here. 69 %
  6. type answer here. 55,200,000

  7. type answer here. Inferential, because Gallup is referring to the survey displayed by the graph. 11

  8. type answer here. 0.42, 0.61
  9. type answer here. 55 +
  10. type answer here. 18-34

  11. type answer here. As age increases, the likelihood of buying a ‘Made in America’ product increases. 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.7 %
  2. type answer here. 9.4 %
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. This is descriptive, it is summarizing the sample displayed in the table and graphs.

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. 0.237
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"))

  2. This statement should say that 37 % of the sample of adult Americans use the internet–the incorrect statement implies that the sample is a population, which is false.
pie(dat,main="Internet Usage",labels=categories, col =c("red","blue","green","yellow","orange"))

Section 2.2

9

  1. type answer here. Value of 8

  2. type answer here. Value of 2

  3. type answer here. 15

  4. type answer here. 4

  5. type answer here. 15 %

  6. type answer here. Bell curve

10

  1. type answer here. 4

  2. type answer here. 9

  3. type answer here. 17

  4. type answer here. Skewed left

11

  1. type answer here. 200

  2. type answer here. 10

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

  4. type answer here. 100-109

  5. type answer here. 150-159

  6. type answer here. 5.5 %

  7. type answer here. No

12

  1. type answer here. 6

  2. type answer here. 0-199, 200-399, 400-599, 600-799, 800-999, 1200-1399

  3. type answer here. 0-199

  4. type answer here. Skewed right

  5. type answer here. Texas is bigger than Vermont, so if the size of Vermont were to be doubled, it would probably end up having just as many alcohol related deaths as Texas; there aren’t any proportions given in order to make a fair comparison of each state’s alcohol deaths to measure the accuracy of this station

13

  1. type answer here. Skewed right, there are fewer wealthier individuals than middle class or poor.

  2. type answer here. Bell shaped, most scores will fall into the average category, while others will skew right and left.

  3. type answer here. Skewed right, most households have between 1-4 occupants

  4. type answer here. Skewed left, most patients with Alzheimer’s will be older.

14

  1. type answer here. Skewed left, most drinks will be consumed during the weekend portion of a day.

  2. type answer here. Skewed left, most students will be older.

  3. type answer here. Skewed left, most patients will need a hearing aid when they’re older.

  4. type answer here. Bell curve, most of the ages will fall into the average category.

dattt <- c(16, 18, 12, 3, 1)

rel.freqqq <- dattt/sum(dattt)

categoriesss <- c("Zero", "One", "Two", "Three", "Four")

answerrr <- data.frame(categoriesss,rel.freqqq)

answerrr
##   categoriesss rel.freqqq
## 1         Zero       0.32
## 2          One       0.36
## 3          Two       0.24
## 4        Three       0.06
## 5         Four       0.02