#
# EPage 215
#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

library(plotrix)
library(DAAG)

set.seed(0)

print( diff( range( nihills$dist ) ) )
print( diff( range( nihills$climb ) ) )

print( diff( range( hills2000$dist ) ) )
print( diff( range( hills2000$climb ) ) )

# Fit the two models on the nihills data frame: 
summary( lm( log(time) ~ log(dist) + log(climb), data=nihills ) )
summary( lm( time ~ dist + I(climb^2), data=nihills ) )

# Fit the two models on the hills2000 data frame:
summary( lm( log(time) ~ log(dist) + log(climb), data=hills2000 ) )
summary( lm( time ~ dist + I(climb^2), data=hills2000 ) )