7. china b. 50 million c. 350 million

9. 69% b. 55.2 million c. inferential

11. *0.42; 0.61** b. 55+ c. 18-34 d. as age increases, so does the likelihood to buy American

13 b. 52.7% c. 9.4%

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

groups <- c("never", "rarely", "sometimes", "mosto of the time", "always")

rel_freq <- my_data / sum(my_data)

barplot(my_data, main = "Math 113 D1", names.arg = groups)

barplot(my_data, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

rel_freq <- my_data / sum(my_data)

barplot(rel_freq, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

pie(my_data, labels = groups, main = "Math 113 D1")

15 a. 24%

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

groups <- c(">1 hr ", "up to 1 hr", "few week", "few month", "never")

rel_freq <- my_data / sum(my_data)

barplot(my_data, main = "Math 113 D1", names.arg = groups)

barplot(my_data, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

rel_freq <- my_data / sum(my_data)

barplot(rel_freq, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

pie(my_data, labels = groups, main = "Math 113 D1")

9. 8 b. 2 c. 15 d. 4 e. 15% f. bell shaped

10. 12 b. 2 d. bell shaped

11. 200 b. 10 c. 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 d. 100-109 e. 150-159 f. 5.5% g. no

13. likely skewed right b. likely bell shaped c. likely skewed right d. likely skewed left

14. likely skewed right b. likely bell shaped c. likely skewed left d.likely skewed right

15.

my_data <- c(0.32, 0.36, 0.24, 0.06, 0.02)

groups <- c("0", "1", "2", "3", "4")

rel_freq <- my_data / sum(my_data)

barplot(my_data, main = "Math 113 D1", names.arg = groups)

barplot(my_data, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

rel_freq <- my_data / sum(my_data)

barplot(rel_freq, main = "Math 113 D1", names.arg = groups, col = c("red","blue","green","yellow"))

pie(my_data, labels = groups, main = "Math 113 D1")

b. 24% c. 60%