datadir <- system.file("extdata",package="cry")
filename <- file.path(datadir,"3syu.cif")
lCIF <- readmm_CIF(filename)
print(names(lCIF))
print(lCIF$HEADER$Entry)
print(lCIF$HEADER$Symmtery)
print(lCIF$HEADER$CELL)
print(lCIF$EXP_DETAILS$CRYSTAL_CON$VAL)
Run the code above in your browser using DataLab