2.1

7

  1. China
  2. Approximately 50,000,000
  3. Approximately 350,000,000
  4. This graph could be misleading in the sense that some might not see that the y-axis is measured in the millions.

9

  1. 69%
  2. About 55,000,000
  3. Inferential because Gallup makes it seem like this relates to all American adults. In reality, he just means those in his test group.

11

  1. About 0.43. About 6.1
  2. 55+
  3. 18-34
  4. As adults get older, they are more likely to buy products that they see are made in America.

13

  1. Never - 0.026, Rarely - 0.068, Sometimes - 0.116, Most of the time - 0.263, Always - 0.527
  2. 52.7%
  3. 9.4%
my_data<-c(125, 324, 552, 1257, 2518)
group<-c("Never", "Rarely", "Sometimes", "Most of the time", "Always")
barplot(my_data, names.arg = group, main = "College Survey (d)")

my_data<-c(0.026, 0.068, 0.116, 0.263, 0.527)
group<-c("Never", "Rarely", "Sometimes", "Most of the time", "Always")
barplot(my_data, names.arg = group, main = "College Survey (e)")

my_data<-c(0.026, 0.068, 0.116, 0.263, 0.527)
group<-c("Never", "Rarely", "Sometimes", "Most of the time", "Always")
pie(my_data, labels = group, main = "College Survey (f)")

  1. Inferential

15

  1. More than 1 hour a day - 0.368, Up to 1 hour a day - 0.187, A few times a week - 0.129, A few times a month or less - 0.079, Never - 0.237
  2. About 24%
my_data<-c(377, 192, 132, 81, 243)
group<-c("More than 1 hour a day", "Up to 1 hour a day", "A few times a week", "A few times a month or less", "Never")
barplot(my_data, names.arg = group, main = "Internet Usage (c)")

my_data<-c(0.368, 0.187, 0.129, 0.079, 0.237)
group<-c("More than 1 hour a day", "Up to 1 hour a day", "A few times a week", "A few times a month or less", "Never")
barplot(my_data, names.arg = group, main = "Internet Usage (d)")

my_data<-c(0.368, 0.187, 0.129, 0.079, 0.237)
group<-c("More than 1 hour a day", "Up to 1 hour a day", "A few times a week", "A few times a month or less", "Never")
pie(my_data, labels = group, main = "Internet Usage (e)")

  1. This survey only accounts for 1025 American adults, not all. Therefore, their report is incorrect.

2.2

9

  1. 8
  2. 2
  3. 15
  4. 4
  5. 15%
  6. Bell shaped

10

  1. 4
  2. 9
  3. 17.3%
  4. Skewed right

11

  1. 200 students
  2. 10
  3. 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-159 = 1
  4. 100-109
  5. 150-159
  6. 5.5%
  7. No

12

  1. 200
  2. 0-199, 200-399, 400-599, 1000-119, 1400-1599
  3. 0-199
  4. Skewed right
  5. Texas has a larger population than Vermont, so the data could be affected by this.

13

  1. Skewed right, because more people have a lower income, so as income increases, the frequency of people decreases.
  2. Bell shaped, because most people will get around the same score, whereas a lot less will do either better or worse.
  3. Skewed right, because on average, a small amount of people live in a home. As the amount of residents increases, the frequency decreases.
  4. Skewed left, because the disease is typically diagnosed at an older age.

14

  1. Skewed right, because the amount of drinks consumed during the weekdays will not be a lot, then as Friday and the weekend come, the amount will increase.
  2. Uniform, because there will most likely be the same amount of people in each class, each being the typical age for that group (aside from the occasional younger or older person).
  3. Skewed left, because hearing age are typically used by the older generation.
  4. Bell shaped. There is an average height, but some people can be shorter or taller.
hist(iris$Sepal.Length)

The histogram seems to be skewed right since most of the higher frequencies are on the left side and the lower frequencies are on the right.