I need help. Could please answer the question 7 and use the R system to run the code for me?

The Data:

########## ## # 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. #########