## 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)
## bootstrap WA optima - 100 resamples too low for SD & pCI
bopt <- optima(ImbrieKipp, SumSST, boot = TRUE, nboot = 100)
head(bopt)
Run the code above in your browser using DataLab