if (FALSE) {
# Default run
BufferFactors()
# All carbonate system species
BufferFactors(species = c("CO2", "HCO3", "CO3"))
# Total concentrations of all species
BufferFactors(species = c("SumCO2", "SumNH4", "SumH3PO4", "SumHNO3",
"SumHNO2", "SumH2S", "SumSiOH4", "SumBOH3",
"SumHF", "SumH2SO4"))
# Different carbonate system equilibrium constants
BufferFactors(k1k2 = "roy")
# Object of class 'aquaenv' as input
ae_input <- aquaenv(S=35, t=25, SumCO2 = 0.0020, pH = 8.1,
skeleton = TRUE)
BufferFactors(ae = ae_input)
# Produces some NaNs as certain total concentrations are zero
BufferFactors(ae = ae_input,
species = c("SumCO2", "SumNH4", "SumH3PO4", "SumHNO3",
"SumHNO2", "SumH2S", "SumSiOH4", "SumBOH3",
"SumHF", "SumH2SO4"))
# Object of class 'aquaenv' as input, but different total alkalinity
parameters <- c(Alk = 0.0022)
BufferFactors(ae = ae_input, parameters = parameters)
}Run the code above in your browser using DataLab