#
# Epage 
#
# 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(alr3)
data(ufcgf)
attach(ufcgf)

# 5.3 a scatterplot
#
plot( Dbh, Height )

# run the function developed earlier:
#
param_bootstrap(Dbh,Height,10000)