# for women's world record times for 1500m event example, p 108
years <- c(0.0, 7.1, 8.9, 8.9, 10.1, 12.8, 17.0, 19.1,
25.0, 28.7, 29.7, 29.9, 35.3, 39.8, 40.2, 41.9, 42.1, 44.0,
44.9, 45.0, 45.1, 45.1, 48.9, 52.9, 53.0, 66.1, 87.9)
time <- c(5.30, 5.12, 5.03, 4.79, 4.75, 4.70, 4.63, 4.63,
4.62, 4.59, 4.50, 4.50, 4.32, 4.29, 4.26, 4.21, 4.18,
4.16, 4.12, 4.11, 4.09, 4.02, 3.93, 3.92, 3.87, 3.84, 3.83)
m=L_regress(time, years)
m
Run the code above in your browser using DataLab