if (FALSE) {
x <- randomGrid()
left(x, 2) # 2nd element to the left
right(x, 1) # 1st element to the right
up(x, 2) # 2nd construct upwards
down(x, 1) # 1st construct downwards
}
Run the code above in your browser using DataLab