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

Run.again <- read.table('http://math.uttyler.edu/nathan/classes/statistics/data/jan23-runners.data',header=TRUE)

boxplot(Run)
summary(Run)

summary(Run$weight)

t.test(Run$weight)

#95 percent confidence interval:
# 59.76152 63.82181