# NOT RUN {
aCube <- getCubieCube("Wire")
bCube <- cubieCube("UUUUUUUUU RLLRRRLLR BBFFFFFBB DDDDDDDDD LRRLLLRRL FFBBBBBFF")
cCube <- cubieCube("FBBBUFRRB DUUFRUFFB DBRBFDUFL FRDDDLDDL UUFULLLLL RDRRBLURB")
identical(aCube, bCube)
is.cubieCube(aCube)
# }
# NOT RUN {
plot(aCube)
# }
# NOT RUN {
plot3D(aCube)
# }
# NOT RUN {
plot(cCube)
# }
# NOT RUN {
plot3D(cCube)
# }
# NOT RUN {
# }
# NOT RUN {
plot(getCubieCube(), numbers = TRUE)
# }
# NOT RUN {
plot(getCubieCube(), numbers = TRUE, blank = TRUE)
# }
Run the code above in your browser using DataLab