##########
##
# Reading the data into R:

my.datafile <- tempfile()
cat(file=my.datafile, "
1 85 0.15
2 169 0.48
3 251 0.95
4 315 1.37
5 408 2.08
6 450 2.53
7 511 3.2
8 590 4.08
9 664 4.93
10 703 5.42
11 831 7.17
12 906 8.22
13 1075 10.92
14 1146 11.92
15 1222 13.12
16 1418 15.78
17 1641 18.83
18 1914 21.22
19 1864 21.98
", sep=" ")

options(scipen=999) # suppressing scientific notation

irrig <- read.table(my.datafile, header=FALSE, col.names=c('obs', 'distance', 'time')) 
 
attach(irrig)

# The data frame called irrig is now created.
#########