HW 3.4 and 3.5

3.4 Assess Your Understanding

1. z-score for the 34-week gestation period baby = -0.303 (or 0.303 below the mean)

2. z-score for the 40-week gestation period baby = -0.426 (or 0.426 below the mean)

3. The baby that weighs less relative to the gestation period is the 40-week gestation period baby.

7. A 75-inch man is realtively taller than a 70-inch woman.

8. Felix Hernandez had the better year relative to his peers in 2010 because his ERA was 2.141 below the standard deviations.

9. Will Power had the more convincing victory.

10. The minimum score that an applican must make on the test to be accepted is 239.

1. 15% of males 3-5 months of age have a head circumference less than or equal to 41.0 cm and 85% of males 3-5 months of age have larger head circumferences.

2. 90% of females 2 years old have a waist circumference less than or equal to 52.7 cm and 10% of females 2 years old have larger waist circumferences.

3. As men age, their heights generally decrease.

a.The z-score corresponding tot he hemoglobin of Blackie = -1.21. The cat’s hemoglobin is 1.21 standard deviations below the mean.

2. Q1 = 9.15, Median = 9.95, Q3 = 11.1

3. IQR = 11.1 - 9.15 = 1.95

Lower Fence = 9.15 - 1.5(1.95) = 6.225

Upper Fence = 11.1 + 1.5(1.95) = 14.025

There is 1 outlier = 5.7

25. The cutoff point = 574 minutes

3.5 Assess Your Understanding

1. Skewed right

2. 0, 1, 3, 6, 16

1. Symmetric

2. 0, 2, 5, 8, 11

1. 40

2. 53

3. y

4. Symmetric

5. Skewed right

1. 16

2. 23

3. x

4. Skewed left

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)

## [1] 60 68 77 89 98

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)

## [1] 110 140 157 173 205

1. 42, 50.5, 54.5, 57.5, 69

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)

## [1] 42.0 50.5 54.5 57.5 69.0

boxplot(my_data, horizontal = T)

3. Symmetric

1. 7.2, 8.9, 10.0, 11.25, 16.4

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)

## [1]  7.20  9.05 10.00 11.20 16.40

boxplot(our_data, horizontal = T)

3. Skewed right