# NOT RUN {
#Load the minerals library
data(minerals)
# Load the soils data
data(soils)
# }
# NOT RUN {
fps_sand <- fps(lib = minerals,
smpl = soils$sandstone,
refs = minerals$phases$phase_id,
std = "QUA.1",
align = 0.2)
plot(fps_sand, wavelength = "Cu")
plot(fps_sand, wavelength = "Cu", interactive = TRUE)
# }
Run the code above in your browser using DataLab