# NOT RUN {
# Load soils xrd data
data(soils)
#Load minerals library
data(minerals)
# }
# NOT RUN {
#Produce a fit
fps_sand <- fps(lib = minerals,
smpl = soils$sandstone,
refs = minerals$phases$phase_id,
std = "QUA.1",
align = 0.2)
r(measured = fps_sand$measured,
fitted = fps_sand$fitted)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab