# NOT RUN {
x=y=1:5
r=5:1/5
circle(x,y,r,add=FALSE,asp=1)
circle(x,y,r,vertex=6,add=TRUE) # hexagon
circle(x,y,r,vertex=4,add=TRUE) # diamond
circle(x,y,r,square=TRUE,add=TRUE) # square
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab