Learn R Programming

ocedata (version 0.1.6)

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

Description

Wilson's (1963) table of seafloor spreading.

Usage

data(wilson)

Arguments

References

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

Run this code
# NOT RUN {
data(wilson, package="ocedata")
plot(wilson$Age, wilson$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')
# }

Run the code above in your browser using DataLab