Reading 3.4; #5-15odds, 22, 25
5 -.30; -.43; 40-week gestation period
7 Man
9 Hernandez
11 Will Power
13 239
15
22
25 574.25 is the cutoff point.
Reading 3.5; 3-10
3
4
5
6
7
your_data <- c(60, 63, 68, 68, 68, 75, 75, 77, 79, 89, 89, 89, 93, 94, 98)
boxplot(your_data, horizontal = T)
fivenum(your_data)
8
this_data <- c(110, 125, 140, 140,140, 150, 152, 157, 160, 173, 173, 173, 180, 180, 205)
boxplot(this_data, horizontal = T)
fivenum(this_data)
9
my_data <- c(42, 43, 46, 46, 47, 47, 48, 49, 49, 50, 50, 51, 51, 51, 51, 52, 52, 54, 54, 54, 54, 54, 55, 55, 55, 55, 56, 56, 56, 57, 57, 57, 57, 58, 60, 61, 61, 61, 62, 64, 64, 65, 68, 69)
fivenum(my_data)
boxplot(my_data, horizontal = T)
quantile(my_data)
c It is skewed left because the lower half of the box is longer than the upper half of the Box.test(
10
our_data <- c(7.2, 7.8, 7.8, 7.9, 8.1, 8.3, 8.5, 8.6, 8.6, 8.6, 8.7, 8.8, 9.0, 9.1, 9.2, 9.2, 9.2, 9.4, 9.4, 9.6, 9.7, 9.7, 9.9, 9.9, 10.0, 10.0, 10.0, 10.1, 10.2,10.3, 10.3, 10.3, 10.3, 10.7, 10.7, 10.9, 11.2, 11.2, 11.2, 11.3, 11.3, 11.3, 11.5, 11.5, 11.7, 12.4, 12.5, 13.6, 13.8, 14.4, 16.4)
fivenum(our_data)
boxplot(our_data, horizontal = T)
c It is skewed right because the upper half of the box is longer than the lower half of the box.