Skip to content

Commit

Permalink
Add Redfield and Wilson datasets
Browse files Browse the repository at this point in the history
  • Loading branch information
dankelley committed Jun 1, 2011
1 parent 151cd06 commit fc3a5e8
Show file tree
Hide file tree
Showing 10 changed files with 131 additions and 1 deletion.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Package: oce
Version: 0.3-1
Date: 2011-05-26
Date: 2011-06-01
Title: Analysis of Oceanographic data
Author: Dan Kelley <[email protected]>
Maintainer: Dan Kelley <[email protected]>
Expand Down
1 change: 1 addition & 0 deletions NEWS
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
0.3-1
- add datasets wilson, redfieldNP, redfieldNC, and redfieldPlankton
- change data(ctd) to be derived from data(ctdRaw)
- change to monitor=FALSE for all reading functions
- add longitude() and latitude()
Expand Down
Binary file added data/redfieldNC.rda
Binary file not shown.
Binary file added data/redfieldNP.rda
Binary file not shown.
Binary file added data/redfieldPlankton.rda
Binary file not shown.
Binary file added data/wilson.rda
Binary file not shown.
30 changes: 30 additions & 0 deletions man/redfieldNC.Rd
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
\name{redfieldNC}

\docType{data}

\alias{redfieldNC}

\title{Redfield's (1934) NO3 and total CO2 data}
\description{Data digitized from Redfield's (1934) Figure 3, showing NO$_3$
dependence on total CO$_2$. This dataset is used in Chapter 4 of Kelley
(2011).}

\usage{data(redfieldNC)}

\examples{
data(redfieldNC)
attach(redfieldNC)
plot(CO2, NO3, xlab=expression(CO[2]), ylab=expression(NO[3]))
slope <- 1/7
abline(-275.5, slope, lwd=3)
abline(-288.5, slope, lwd=3)
}

\source{Data digitized by Dan Kelley from a scanned copy of Redfield's (1934).}
\seealso{See \code{\link{redfieldNP}} and \code{\link{redfieldPlankton}}.}
\references{Kelley, 2011. Oceanographic Analysis with R. Springer Verlag. To appear.}
\keyword{misc}
29 changes: 29 additions & 0 deletions man/redfieldNP.Rd
Original file line number Diff line number Diff line change
@@ -0,0 +1,29 @@
\name{redfieldNP}

\docType{data}

\alias{redfieldNP}

\title{Redfield's (1934) NO3 and PO4 data}
\description{Data digitized from Redfield's (1934) Figure 1, showing NO$_3$
dependence on PO$_4$. This dataset is used in Chapter 4 of Kelley (2011).}

\usage{data(redfieldNP)}

\examples{
data(redfieldNP)
attach(redfieldNP)
attach(redfieldNP)
plot(PO4, NO3, xlab=expression(PO[4]), ylab=expression(NO[3]))
abline(0, 20, lwd=3) # line N:P = 20:1, as shown by Redfield
}

\source{Data digitized by Dan Kelley from a scanned copy of Redfield's (1934)
Figure 1, showing the dependence of NO$_3$ on PO$_4$.}
\references{Kelley, 2011. Oceanographic Analysis with R. Springer Verlag. To appear.}
\seealso{See \code{\link{redfieldNC}} and \code{\link{redfieldPlankton}}.}
\keyword{misc}
33 changes: 33 additions & 0 deletions man/redfieldPlankton.Rd
Original file line number Diff line number Diff line change
@@ -0,0 +1,33 @@
\name{redfieldPlankton}

\docType{data}

\alias{redfieldPlankton}

\title{Redfield's (1934) Table II}
\description{Contents of Redfield's (1934) Table II, containing columns for
sampled species, carbon content by weight (normalized to 100), Nitrogen
content by weight, and Phosphorus content by weight. This dataset is used in
Chapter 4 of Kelley (2011).}

\usage{data(redfieldPlankton)}

\examples{
data(redfieldPlankton)
attach(redfieldPlankton)
par(mfrow=c(1,2))
boxplot(Nitrogen)
abline(h=16.7, col='gray')
boxplot(Phosphorus)
abline(h=1.85, col='gray')
}

\source{Data entered verbatim (sans italics for species name) by Dan Kelley
from Redfield's (1934) Table II.}
\references{Kelley, 2011. Oceanographic Analysis with R. Springer Verlag. To appear.}
\seealso{See \code{\link{redfieldNP}} and \code{\link{redfieldNC}}.}
\keyword{misc}
37 changes: 37 additions & 0 deletions man/wilson.Rd
Original file line number Diff line number Diff line change
@@ -0,0 +1,37 @@
\name{wilson}

\docType{data}

\alias{wilson}

\title{Wilson's (1963) table of seafloor spreading}
\description{Data transcribed from Wilson's (1934) Table 1, taking only the
first 3 columns, and only those rows for which Wilson reported an estimate
of spreading rate. This dataset is used in Chapter 4 of Kelley (2011).}

\usage{data(wilson)}


\examples{
library(OAR)
data(wilson)
attach(wilson)
plot(Age, Distance, xlab="Age [My]", ylab="Distance [km]", xlim=c(125,0), ylim=c(0,4000))
abline(0,4000/125)
m <- lm(Distance~Age-1, data=wilson)
## Wilson reports in cm/year; 1cm/y = 1km/1My * 1e5 / 1e6
spreadingRate <- as.numeric(coef(m)) / 10
print(spreadingRate)
abline(m, col='red')
}

\source{J. Tuzo Wilson,
1963. Evidence from islands on the spreading of ocean floors.
\emph{Nature},
197(4867):536-538.
\url{//dx.doi.org/10.1038/197536a0.}}

\references{Kelley, 2011. Oceanographic Analysis with R. Springer Verlag. To appear.}

\keyword{misc}

0 comments on commit fc3a5e8

Please sign in to comment.