# Create an object of class 'cryst_symm'
x <- cryst_symm(15)
# Check its validity
check_cryst_symm_validity(x)
# Now change a field
x$PG[[1]] <- matrix(rep(0,times=9),ncol=3)
# Check validity again
check_cryst_symm_validity(x,TRUE)
Run the code above in your browser using DataLab