# 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.2",
align = 0.2,
lod = 0.2,
amorphous = "ORG",
amorphous_lod = 1)
afps_lime <- afps(lib = minerals,
smpl = soils$limestone,
std = "QUA.2",
align = 0.2,
lod = 0.2,
amorphous = "ORG",
amorphous_lod = 1)
afps_granite <- afps(lib = minerals,
smpl = soils$granite,
std = "QUA.2",
align = 0.2,
lod = 0.2,
amorphous = "ORG",
amorphous_lod = 1)
#Alternatively run all 3 at once using lapply
afps_soils <- lapply(soils, afps,
lib = minerals,
std = "QUA.2",
align = 0.2,
lod = 0.2,
amorphous = "ORG",
amorphous_lod = 1)
#Automated quantification using the rockjock library
data(rockjock)
data(rockjock_mixtures)
#This takes a few minutes to run
rockjock_a1 <- afps(lib = rockjock,
smpl = rockjock_mixtures$Mix1,
std = "CORUNDUM",
align = 0.3,
lod = 1)
#Quantifying the same sample but defining the internal standard
#concentration (also takes a few minutes to run):
rockjock_a1s <- afps(lib = rockjock,
smpl = rockjock_mixtures$Mix1,
std = "CORUNDUM",
std_conc = 20,
align = 0.3,
lod = 1)
# }
Run the code above in your browser using DataLab