# The symplest symmetry: P 1
crsym <- cryst_symm("P 1")
print(crsym)
# The second space group: P -1
crsym <- cryst_symm(2)
print(crsym)
# Something more complicated
crsym <- cryst_symm("P 21 21 21")
print(crsym)
Run the code above in your browser using DataLab