# NOT RUN {
#Load the minerals library
data(minerals)
# Load the soils data
data(soils)
# }
# NOT RUN {
afps_sand <- afps(lib = minerals,
smpl = soils$sandstone,
std = "QUA.1",
amorphous = "ORG",
align = 0.2,
lod = 0.1)
plot(afps_sand, wavelength = "Cu")
plot(afps_sand, wavelength = "Cu", interactive = TRUE)
# }
Run the code above in your browser using DataLab