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

if(is.null(version$language) == FALSE) require(alr3) else library(alr3)

# transactions data
if(is.null(version$language) == FALSE) data(transact)

m1 <- lm(Time~ T1 + T2, data=transact)

mmps( m1 )

postscript("../../WriteUp/Graphics/Chapter8/prob_11_mmps.eps", onefile=FALSE, horizontal=FALSE)
mmps( m1, sd=TRUE )
dev.off()