# NOT RUN {
aCube <- getStickerCube("Wire")
bCube <- stickerCube("UUUUUUUUU RLLRRRLLR BBFFFFFBBD DDDDDDDDL RRLLLRRLF FBBBBBFF")
cCube <- stickerCube("FBBBUFRRB DUUFRUFFB DBRBFDUFLF RDDDLDDLU UFULLLLLR DRRBLURB")
identical(aCube, bCube)
is.stickerCube(aCube)
# }
# NOT RUN {
plot(aCube)
# }
# NOT RUN {
plot3D(aCube)
# }
# NOT RUN {
plot(cCube)
# }
# NOT RUN {
plot3D(cCube)
# }
# NOT RUN {
# }
# NOT RUN {
plot(getStickerCube(), numbers = TRUE)
# }
# NOT RUN {
plot(getStickerCube(), numbers = TRUE, blank = TRUE)
# }
Run the code above in your browser using DataLab