# NOT RUN {
mv <- "RB'y'F2MD'"
invMoves(mv)
mirMoves(mv, mirror = "RL")
iCube <- getCubieCube("TwistedChickenFeet")
rmv <- rotMoves(mv, rotation = "x")
aCube <- move(iCube, c("x", rmv, "x'"))
bCube <- move(iCube, mv)
identical(aCube, bCube)
moveOrder("RU2D'BD'")
# }
Run the code above in your browser using DataLab