(male=1, female=2) R code used: x = 1:2 y = c(3.8,2.4) se = c(0.2,0.1) d = data.frame(x, y, se) plot(x, y) with (data = d, expr = errbar(x, y, y+se, y-se, add=F, pch=1, cap=.015, log="x"))

(1=coach, 2=supporter, 3=competitor) R code used: x = 1:3 y = c(3.77,3.61,1.81) se = c(0.45,.32,0.2) d = data.frame(x, y, se) plot(x, y) with (data = d, expr = errbar(x, y, y+se, y-se, add=F, pch=1, cap=.015, log="x"))

HW1

In class work 1-22