# Create a cubic cell with side 50
uc <- create_unit_cell(50)
# Create an object of class "cryst_symm"
crsym <- cryst_symm("P m -3")
# Are they compatible with each other?
check_validity(uc,crsym,TRUE)
Run the code above in your browser using DataLab