Reading <- read.table('http://math.uttyler.edu/nathan/classes/statistics/data/reading.data',header=TRUE)

attach(Reading)
# one approach:
trt <- DRP[1:21]
cnt <- DRP[22:44]

DRP
DRP[5]
trt.1 <- DRP[Treatment == 'Treated']
trt.2 <- DRP[Treatment == 'Control']


lets.make.a.list <- c(1,3,5,7,14,22,8)

dont.do.this <- read.table('http://math.uttyler.edu/nathan/classes/statistics/data/add.data',header=TRUE)
do.this.instead <- scan('http://math.uttyler.edu/nathan/classes/statistics/data/add.data')

Labor.1 <- scan('http://math.uttyler.edu/nathan/classes/statistics/data/labor.data')

t.test(Labor.1)

Labor.2 <- read.table('http://math.uttyler.edu/nathan/classes/statistics/data/labor1.data',header=TRUE)

attach(Labor.2)

t.test(X1972-X1968)
t.test(X1972 - X1968,conf.level=.9)
t.test(X1972 - X1968,conf.level=)


t.test(X1972 - X1968,alternative='greater',conf.level=.9)