# NOT RUN {
# Load soils xrd data
data(soils)
#Load minerals library
data(minerals)
# }
# NOT RUN {
#Create a standard quartz pattern to align to
quartz <- data.frame(tth = minerals$tth,
counts = minerals$xrd$QUA.1)
#Plot the main quartz peak prior to alignment
plot(soils, wavelength = "Cu",
xlim = c(26,27),
normalise = TRUE)
#align data
aligned <- align_xy(soils,
std = quartz,
xmin = 10,
xmax = 60,
xshift = 0.2)
#replot data
plot(aligned, wavelength = "Cu",
xlim = c(26,27),
normalise = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab