# NOT RUN {
data(minerals)
data(soils)
# }
# NOT RUN {
multiple_afps <- lapply(soils, afps,
lib = minerals,
std = "QUA.1",
align = 0.2,
lod = 0.1,
amorphous = "ORG",
amorphous_lod = 1)
sm1 <- summarise_mineralogy(multiple_afps,
type = "all",
order = TRUE)
sm2 <- summarise_mineralogy(multiple_afps,
type = "grouped",
order = TRUE)
sm3 <- summarise_mineralogy(multiple_afps,
type = "grouped",
order = TRUE,
rwp = TRUE)
# }
Run the code above in your browser using DataLab