## Load the Imbrie & Kipp data and
## summer sea-surface temperatures
data(ImbrieKipp)
data(SumSST)
## WA optima
(opt <- optima(ImbrieKipp, SumSST))
## WA tolerances
(tol <- tolerance(ImbrieKipp, SumSST, useN2 = TRUE))
## caterpillar plot
caterpillarPlot(opt, tol)
## convert to data frame
as.data.frame(opt)
as.data.frame(tol)
Run the code above in your browser using DataLab