remove some more accessors

TheEarnest · Apr 15, 2016 · 69b3904 · 69b3904
1 parent b33c07f
commit 69b3904
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/sw.R b/R/sw.R
@@ -211,7 +211,7 @@ swRrho <- function(ctd, sense=c("diffusive", "finger"), smoothingLength=10, df,
 #' library(oce)
 #' data(ctd)
 #' # Illustrate difference between UNESCO and GSW
-#' p <- pressure(ctd)
+#' p <- ctd[["pressure"]]
 #' ylim <- rev(range(p))
 #' par(mfrow=c(1,3), mar=c(3, 3, 1, 1), mgp=c(2, 0.7, 0))
 #' plot(ctd[["sigmaTheta"]], p, ylim=ylim, type='l', xlab=expression(sigma[theta]))

diff --git a/man/plotTaylor.Rd b/man/plotTaylor.Rd
@@ -53,7 +53,7 @@
 \examples{
 library(oce)
 data(sealevel)
-x <- elevation(sealevel)
+x <- sealevel[["elevation"]]
 M2 <- predict(tidem(sealevel, constituents="M2"))
 S2 <- predict(tidem(sealevel, constituents=c("S2")))
 plotTaylor(x, cbind(M2, S2))

diff --git a/man/swN2.Rd b/man/swN2.Rd