# C 2 monoclinic space group
SG <-"C 1 2 1"
# Create an arbitrary cell compatible with C 2
uc <- unit_cell(10,15,10,90,110,90)
# Crete the related reciprocal cell
ruc <- create_rec_unit_cell(uc)
# Create a full data frame of Miller indices
hkl <- expand.grid(H=-4:4,K=-4:4,L=-4:4)
# Get rid of systematic absences
new_hkl <- deplete_systematic_absences(hkl,SG)
# Compare first 10 items of original and depleted arrays
hkl[1:10,]
new_hkl[1:10,]
Run the code above in your browser using DataLab