# 
# 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(MASS)

par(mfrow=c(2,2))
plot( brain ~ body, data=Animals )
plot( sqrt(brain) ~ sqrt(body), data=Animals )
plot( I(brain^0.1) ~ I(body^0.1), data=Animals )
plot( log(brain) ~ log(body), data=Animals )
par(mfrow=c(1,1))