w <- square(10)
# add a margin of width 1 on all four sides
square11 <- grow.rectangle(w, 1)
# add margin of width 3 on the right side
# and margin of height 4 on top.
v <- grow.rectangle(w, c(0,3), c(0,4))
Run the code above in your browser using DataLab