#====================
# Figure 13.1.R.
# R script to draw common plotting symbols.
#====================
ncol = 7
nrow = 3
x=matrix(1:7,1,ncol*nrow)
x
y1=cbind(rep(4,ncol),rep(3,ncol),rep(2,ncol))
y=matrix(y1,1,ncol*nrow)
y
plot(x,y,type="p",cex=3,pch=0:21,ylim=c(0,5),axes=FALSE,ann=FALSE)
text(x,y-.25,0:20,pos=1)