# NOT RUN {
cp = circularPlot(10, center=c(x=20,y=20))
cp.perim = perimeter(cp)
plot(cp.perim, axes=TRUE, lty='dashed') #the perimeter of the plot
plot(bboxToPoly(cp.perim), add=TRUE, border='blue') #the bounding box
# }
Run the code above in your browser using DataLab