## cmass.R plot(0:3,0:3,type="n",xlab="",ylab="", xaxt="n",yaxt="n",bty="n") # no axes, no box points(0.5,0.5,pch=20) points(0.5,2.5,pch=19,cex=2) text(0.3,2.5,expression(m[1]),cex=1.5) arrows(0.5,0.5,0.5,2.5,code=2,cex=1.2) text(0.4,1.5,expression(r[1]),cex=1.5) text(0.4,0.5,"0") points(2.5,2.5,pch=19,cex=2) arrows(0.5,0.5,2.5,2.5,code=2,cex=1.2) text(1.7,1.5,expression(r[2]),cex=1.5) text(2.65,2.5,expression(m[2]),cex=1.5) arrows(0.5,0.5,1.4,2.5,code=2,cex=1.2) text(1,2,"R",cex=2) arrows(0.5,2.5,2.5,2.5,code=2,cex=1.2) text(1.4,2.6,"C. M.",cex=1.2) text(1.2,2.8,expression(r[rel]),cex=1.5) text(1.35,2.8,"=",cex=1.5) text(1.45,2.8,expression(r[2]),cex=1.5) text(1.55,2.8,"-",cex=1.5) text(1.65,2.8,expression(r[1]),cex=1.5)