7 a) China b) 50 million c) 360 million

9 a) 69% of respondents believe divorce is morally acceptable b) 240,000,000 X 0.23 = 55.2 million adult Americans belive divorce is morally wrong c) I would say this statement is inferential because it extends the results of the sample to make a generalization about the adult American population.

11 a) 43% of 18-34 year olds are more likely to buy when made in America. 61% of 34-44 year olds respondents are more likely to buy when made in America b) 55+ c) 18-34 d) It is apparent that the older a person is, the more likely a person is to buy when made in America.

13 a) Relative Frequency Distribution: Never 125/4476=0.026 Rarely 324/4776=0.068 Sometimes 552/4776=0.116 Most of the time 1257/4776=0.263 Always 2518/4776=0.527

  1. 52.7%

  2. 2.6%+6.8%= 9.4%

my_data <- c(125, 324, 552, 1257, 2518)

groups <- c("never", "rarely", "sometimes", "most", "always")

barplot(my_data, main = "Frequency College Students Wear Seatbelts", names.arg = groups)

barplot(my_data, main = "Frequency College Students Wear Seatbelts", names.arg = groups, col = c("red","blue","green","yellow"))

rel_freq <- my_data / sum(my_data)

barplot(rel_freq, main = "Frequency College Students Wear Seatbelts", names.arg = groups, col = c("red","blue","green","yellow"))

pie(my_data, labels = groups, main = "Frequency College Students Wear Seatbelts")

  1. This is an inferential statement because it is generalizing all college students based off of one national study.

15 a) Relative Frequency Distribution: More than 1 hour a day 377/1025=0.368 Up to 1 hour a day 192/1025=0.187 A few times a week 132/1025=0.129 A times a month or less 81/1025=0.079 Never 243/1025=0.237

  1. 23.7% never use the Internet

c, d, e

my_data <- c(377, 192, 132, 81, 243)

groups <- c("1 hour+", "Up to 1 hour", "Few/Week", "Few/Month", "Never")

barplot(my_data, main = "Daily Internet Time", names.arg = groups)

barplot(my_data, main = "Daily Internet Time", names.arg = groups, col = c("red","blue","green","yellow"))

rel_freq <- my_data / sum(my_data)

barplot(rel_freq, main = "Daily Internet Time", names.arg = groups, col = c("red","blue","green","yellow"))

pie(my_data, labels = groups, main = "Daily Internet Time")

  1. The statement is wrong because it is only an approximation from a specific sample of the American adult population. It may not be true in general of all adult Americans.