hand_out_hw_1.R

steven — Sep 15, 2013, 4:08 PM

# Getting data together
before <- c(195,145,205,159,244,166,250,236,192,224,238,197,169,158,151,197,180,222,168,168,167,161,178,137)
after <- c(146,155,178,146,208,147,202,215,184,208,206,169,182,127,149,178,161,187,176,145,154,153,137,125)
diff <- before-after

# what to do with data
mean(before)

[1] 187.8

median(before)

[1] 179

var(before)

[1] 1100

sd(before)

[1] 33.16

cvb <- (sd(before)/mean(before))*100
cvb

[1] 17.66

mean(after)

[1] 168.2

median(after)

[1] 165

var(after)

[1] 718

sd(after)

[1] 26.8

cva <- (sd(after)/mean(after))*100
cva

[1] 15.93

# Range and IQR of after values
range <- max(after)-min(after)
range

[1] 90

IQR(after)

[1] 38

# Stem and leaf and box-plot of diff
stem(diff, width = 100)

  The decimal point is 1 digit(s) to the right of the |

  -0 | 308
   0 | 2882336999
   2 | 13781256
   4 | 189

boxplot(diff, ylab="Difference", main="Box-plot of Difference Values")