Dataset: repeatrun.dat

Source: I. Rollo, C. Williams, A. Nevill (2008). "Repeatability of scores on a
Novel Test of Endurance Running Performance," Journal of Sports Sciences, Oct.
14, 1:8. [Epub ahead of print]

Description: Total distance covered in 1 hour (meters) on treadmill by 10 runners during 3
trials (separated by 1 week each).


Variables/Columns
Runner   7-8
Trial Number   16
Distance in meters  18-24



Courtesy : http://www.stat.ufl.edu/~winner/datasets.html


x=scan()
       1       1   15202
       2       1   15178
       3       1    9895
       4       1   15875
       5       1   12138
       6       1   14427
       7       1   15583
       8       1   13928
       9       1    9419
      10       1   10593
       1       2   15308
       2       2   14791
       3       2    9825
       4       2   15887
       5       2   12235
       6       2   14228
       7       2   15354
       8       2   14138
       9       2    9553
      10       2   10453
       1       3   14886
       2       3   14898
       3       3    9818
       4       3   15868
       5       3   12329
       6       3   14414
       7       3   15504
       8       3   13944
       9       3    9606
      10       3   10668

#


subject=x[seq(1,90,3)]

trial=x[seq(2,90,3)]

distance.meters = x[seq(3,90,3)]


plot(subject,distance.meters)