# NOT RUN {
aCube <- getCubieCube("HenrysSnake")
bCube <- slice(rotate(aCube, "z'"), "M2")
cCube <- move(aCube, "z'M2")
identical(bCube, cCube)
# }
# NOT RUN {
plot(cCube)
# }
# NOT RUN {
plot3D(cCube)
# }
Run the code above in your browser using DataLab