update vignette

Author: dankelley

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gsw
 Version: 1.0-5
-Date: 2017-08-07
+Date: 2017-08-08
 Title: Gibbs Sea Water Functions
 Authors@R: c(person("Dan", "Kelley", role=c("aut","cre","cph"), email="dan.kelley@dal.ca", comment="C wrapper plus R code, tests, and documentation"), person("Clark", "Richards", role=c("aut","cph"), email="clark.richards@gmail.com", comment="C wrapper plus R code, tests, and documentation"), person("WG127", "SCOR/IAPSO", role=c("aut","cph"), comment="Original 'Matlab' and derived code"))
 Copyright: Original algorithms and 'Matlab'/C library (c) 2015-2017 WG127 SCOR/IAPSO

inst/doc/gsw.R

@@ -1,6 +1,5 @@
 ## ----echo=FALSE, results="hide"---------------------------
 options(keep.source=TRUE, width=60, prompt=' ', continue=' ', oceEOS="unesco")
-eval <- TRUE
 
 ## ---------------------------------------------------------
 library(gsw)
@@ -9,50 +8,50 @@ SA <- gsw_SA_from_SP(SP=35, p=100, longitude=188, latitude=4)
 ## ---------------------------------------------------------
 CT <- gsw_CT_from_t(SA=SA, t=10, p=100)
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 png("TS_unesco.png", width=353, height=353, pointsize=12)
 
-## ----eval=eval--------------------------------------------
+## ----eval=TRUE--------------------------------------------
 library(oce)
 data(section)
 ctd <- section[["station", 100]]
 Slim <- c(34.8, 37.0)
 Tlim <- c(0, 25)
 plotTS(ctd, Slim=Slim, Tlim=Tlim, eos="unesco")
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 dev.off()
 png("TS_gsw.png", width=353, height=353, pointsize=12)
 
-## ----eval=eval--------------------------------------------
+## ----eval=TRUE--------------------------------------------
 plotTS(ctd, Slim=Slim, Tlim=Tlim, eos="gsw")
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 dev.off()
 png("TS_gsw.png", width=353, height=353, pointsize=12)
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 png('temperature_comparison.png', width=353, height=252, pointsize=12)
 par(mar=c(3.2, 3, 1, 1/2), mgp=c(2, 0.85, 0))
 
-## ----eval=eval--------------------------------------------
+## ----eval=TRUE--------------------------------------------
 f <- (section[["CT"]] - section[["theta"]]) / section[["CT"]]
 hist(f, main="", xlab="(CT-theta)/CT")
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 dev.off()
 png('salinity_comparison.png', width=353, height=252, pointsize=12)
 par(mar=c(3.2, 3, 1, 1/2), mgp=c(2, 0.85, 0))
 
-## ----eval=eval--------------------------------------------
+## ----eval=TRUE--------------------------------------------
 f <- (section[["SA"]] - section[["salinity"]]) / section[["SA"]]
 hist(f, main="", xlab="(SA-SP)/SA")
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 dev.off()
 png("SSS_2.png", width=588, height=336)
 
-## ----eval=eval--------------------------------------------
+## ----eval=TRUE--------------------------------------------
 library(oce)
 data("levitus", package="ocedata")
 SSS <- levitus$SSS
@@ -64,7 +63,7 @@ imagep(levitus$longitude, levitus$latitude, per, col=oceColorsJet,
        zlim=quantile(per, c(0.001, 0.999), na.rm=TRUE))
 title(expression("Percent difference between " * S[A] * " and " * S[P]))
 
-## ----eval=eval, echo=FALSE--------------------------------
+## ----eval=TRUE, echo=FALSE--------------------------------
 dev.off()
 
 ## ----results="hide", echo=FALSE---------------------------