HW2_skeleton
Harrel Blatt
January 27, 2016
2.1
7
China
50 million
Type answer
Type answer
9
Type answer
Type answer
Type answer
11
Type answer
Type answer
Type answer
Type answer
13
Never: Type answer
Rarely: Type answer
Sometimes: Type answer
Most of the time: Type answer
Always: Type answer
Type answer
Type answer
d e f
my_data <- c(125, 324, 552, 1257, 2518)
groups <- c("Never", "Rarely", "Sometimes", "Most", "Always")
barplot(my_data, main = "Wearing Seatbelts", names.arg = groups)
barplot(my_data, main = "Wearing Seatbelts", names.arg = groups, col = c("red","blue","green","yellow", "black"))
rel_freq <- my_data / sum(my_data)
barplot(rel_freq, main = "Wearing Seatbelts", names.arg = groups, col = c("red","blue","green","yellow","black"))
pie(my_data, labels = groups, main = "Wearing Seatbelts")
- Type answer
15
More then 1 hour: Type answer
Up to 1 hour: Type answer
A few time a week: Type answer
A few times a month: Type answer
Never: Type answer
- 23.7%
c d e
my_data <- c(377, 192, 132, 81, 243)
groups <- c("More 1", "Up to 1", "Few times week", "Few times month", "Never")
barplot(my_data, main = "Use the internet", names.arg = groups)
barplot(my_data, main = "Use the internet", names.arg = groups, col = c("red","blue","green","yellow", "black"))
rel_freq <- my_data / sum(my_data)
barplot(rel_freq, main = "Use the internet", names.arg = groups, col = c("red","blue","green","yellow","black"))
pie(my_data, labels = groups, main = "Use the internet")
- Type answer
2.2
9
Type answer
Type answer
Type answer
Type answer
Type answer
Type answer
10
Type answer
Type answer
Type answer
Type answer
11
Type answer
Type answer
Type answer
Type answer
Type answer
Type answer
Type answer
12
Type answer
Skip this problem
Type answer
Type answer
Type answer
13
Type answer
Type answer
Type answer
Type answer
14
Type answer
Type answer
Type answer
Type answer