# 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
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab