Progression in world record times for track and road races.
data(progression)
A data frame with 227 observations on the following 4 columns.
year
Year that time was first recorded
Distance
distance in kilometers
Time
time in minutes
race
character; descriptor for event (100m, mile, ...)
Record times for men's track events, from 1912 onwards. The series starts with times that were recognized as record times in 1912, where available.
# NOT RUN {
data(progression)
plot(log(Time) ~ log(Distance), data=progression)
xyplot(log(Time) ~ log(Distance), data=progression, type=c("p","r"))
xyplot(log(Time) ~ log(Distance), data=progression,
type=c("p","smooth"))
res <- resid(lm(log(Time) ~ log(Distance), data=progression))
plot(res ~ log(Distance), data=progression,
ylab="Residuals from regression line on log scales")
# }
Run the code above in your browser using DataLab