# # EPage 139 # # 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. # #----- rareplants = matrix( c(37,190,94,23,59,23,10,141,28,15,58,16), ncol=3, byrow=TRUE, dimnames=list( c("CC","CR","RC","RR"), c("D","W","WD") ) ) #postscript("../../WriteUp/Graphics/Chapter4/prob_10_mosaicplot.eps", onefile=FALSE, horizontal=FALSE) mosaicplot( t(rareplants), color=TRUE ) #dev.off()