## Not run:
#
# x <- randomGrid()
# swapPoles(x, 1) # swap construct poles of construct
# swapPoles(x, 1:2) # swap construct poles of construct 1 and 2
# swapPoles(x) # swap all construct poles
# ## End(Not run)
Run the code above in your browser using DataLab