C0 <- 0.01# Concentration of silica from biogenic sources mol/L
Vol_Na2CO3 <- 0.04 # Vol. Na2CO3 (L)
Molar_mass_silicon <- 28.09 # Molar mass of silicon (g/mol)
sample_dry_weight <- 0.05 # Sample dry weight (g)
result <- pbSi(C0, Vol_Na2CO3, Molar_mass_silicon, sample_dry_weight, output_dir = tempdir())
print(result)
Run the code above in your browser using DataLab