[CHNOSZ-commits] r596 - in pkg/CHNOSZ: . man

[noreply at r-forge.r-project.org]

Author: jedick
Date: 2020-08-15 02:13:56 +0200 (Sat, 15 Aug 2020)
New Revision: 596

Modified:
   pkg/CHNOSZ/DESCRIPTION
   pkg/CHNOSZ/man/solubility.Rd
Log:
Decrease pH range of 'find.IS' example in solubility.Rd (to pass checks on winbuilder)


Modified: pkg/CHNOSZ/DESCRIPTION
===================================================================
--- pkg/CHNOSZ/DESCRIPTION	2020-08-11 02:21:24 UTC (rev 595)
+++ pkg/CHNOSZ/DESCRIPTION	2020-08-15 00:13:56 UTC (rev 596)
@@ -1,6 +1,6 @@
 Date: 2020-08-11
 Package: CHNOSZ
-Version: 1.3.6-69
+Version: 1.3.6-70
 Title: Thermodynamic Calculations and Diagrams for Geochemistry
 Authors at R: c(
     person("Jeffrey", "Dick", , "j3ffdick at gmail.com", role = c("aut", "cre"),

Modified: pkg/CHNOSZ/man/solubility.Rd
===================================================================
--- pkg/CHNOSZ/man/solubility.Rd	2020-08-11 02:21:24 UTC (rev 595)
+++ pkg/CHNOSZ/man/solubility.Rd	2020-08-15 00:13:56 UTC (rev 596)
@@ -117,17 +117,17 @@
 basis(c("calcite", "Ca+2", "H2O", "O2", "H+"))
 species(c("CO2", "HCO3-", "CO3-2"))
 # ionic strength calculations don't converge below around pH=3
-a <- affinity(pH = c(3, 14))
+a <- affinity(pH = c(4, 14))
 sa0 <- solubility(a)
 saI <- solubility(a, find.IS = TRUE)
 ## method 2: CO2 and carbonate species as basis species
 basis(c("calcite", "CO2", "H2O", "O2", "H+"))
 species(c("Ca+2"))
-m <- mosaic(c("CO2", "HCO3-", "CO3-2"), pH = c(3, 14))
+m <- mosaic(c("CO2", "HCO3-", "CO3-2"), pH = c(4, 14))
 sm0 <- solubility(m)
 smI <- solubility(m, find.IS = TRUE)
 ## plot the results
-plot(0, 0, xlab="pH", ylab="solubility, log mol", xlim = c(3, 14), ylim = c(-5, 2))
+plot(0, 0, xlab="pH", ylab="solubility, log mol", xlim = c(4, 14), ylim = c(-5, 2))
 # method 1 with/without ionic strength
 lines(a$vals[[1]], saI$loga.balance, lwd=5, col="lightblue")
 lines(a$vals[[1]], sa0$loga.balance, lwd=5, col="pink")