oce (version 0.9-13)

wilson: Wilson's (1963) table of seafloor spreading

Description

Wilson's (1963) table of seafloor spreading. This dataset is used in Chapter 4 of Kelley (2012).

Usage

data(wilson)

source

Data transcribed from Wilson's (1963) Table 1, taking only the first 3 columns, and only those rows for which Wilson reported an estimate of spreading rate.

References

Dan Kelley, in preparation. Oceanographic Analysis with R. Springer Verlag.

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

Examples

library(oce)
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')
detach(wilson)