#
# EPage 140
#
# 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(DAAG)

# Lets do a boxplot of this data: 
pot_Index = as.factor( c( rep(1,5), rep(2,5), rep(3,5), rep(4,5), rep(5,4) ) )
pot_mignonette = cbind( pot_Index, mignonette )

#postscript("../../WriteUp/Graphics/Chapter4/prob_15_plot.eps", onefile=FALSE, horizontal=FALSE)
boxplot( cross-self ~ pot_Index, data=pot_mignonette, xlab="pot index", ylab="cross - self" )
#dev.off()