# NOT RUN {
data(rockjock)
data(rockjock_mixtures)
rockjock_a1 <- afps(lib = rockjock,
smpl = rockjock_mixtures$Mix1,
std = "CORUNDUM",
align = 0.3,
lod = 1,
std_conc = 20)
sum(rockjock_a1$phases$phase_percent)
rockjock_a1c <- close_quant(rockjock_a1)
sum(rockjock_a1c$phases$phase_percent)
# }
Run the code above in your browser using DataLab