# NOT RUN {
#Load the minerals library
data(minerals)
#Load the soils data
data(soils)
#Load the regrouping structure
data(minerals_regroup)
# }
# NOT RUN {
fps_sandstone <- fps(lib = minerals,
smpl = soils$sandstone,
refs = minerals$phases$phase_id,
std = "QUA.1",
align = 0.2)
fps_sandstone_regrouped <- regroup(fps_sandstone,
minerals_regroup)
fps_sandstone_regrouped$phases_grouped
# }
Run the code above in your browser using DataLab