# NOT RUN {
# Data from thiocyanate structure
datadir <- system.file("extdata",package="crone")
filename <- file.path(datadir,"thiocyanate_x.dat")
sdata <- read_x(filename)
# Miller indices
hidx <- 1:10
# Observed structure factors with errors
ltmp <- sfobs(hidx,sdata)
Fobs <- ltmp$F
sigFobs <- ltmp$sF
# Phases from calculated structure factors
ftmp <- strufac(hidx,sdata)
phicalc <- ftmp$Fpha
# Create standardised fdata structure
fdata <- standardise_fdata(sdata$a,sdata$SG,hidx,Fobs=Fobs,
sigFobs=sigFobs,Phicalc=phicalc)
# Name of structure factors file (in temporary directory)
wd <- tempdir()
fname <- file.path(wd,"test")
# Write data to file
write_h(fname,fdata)
# }
Run the code above in your browser using DataLab