Represents layer-counted proxy records as sequences of probability distributions on absolute, error-free time axes.
Arguments
- depth
A positive
numeric
vector giving the depth at which proxy values and calendar ages were measured. It must be in decreasing order (i.e. in chronological order).- ...
Currently not used.
- proxy
A
numeric
vector giving the proxy values.- proxy_error
A
numeric
vector giving the proxy uncertainties.- step
A length-one
numeric
vector specifying the step size (in units ofproxy
) at which proxy records densities are to be estimated.- time
A
numeric
vector giving the calendar ages (in years).- time_error
A
numeric
vector giving the calendar age uncertainties (in years).- calendar
An
aion::TimeScale
object specifying the target calendar (seeaion::calendar()
). IfNULL
, rata die are returned.- from
A length-one
numeric
vector specifying the starting value of the temporal sequence at which densities are to be estimated (in years).- to
A length-one
numeric
vector specifying the end value of the temporal sequence at which densities are to be estimated (in cal BP years).- by
A length-one
numeric
vector specifying the increment of the temporal sequence at which densities are to be estimated (in years).- n
An
integer
specifying the number of item to choose randomly.- progress
A
logical
scalar: should a progress bar be displayed?- verbose
A
logical
scalar: should extra information be reported?
Value
A ProxyRecord
object.
References
Boers, N., Goswami, B. & Ghil, M. (2017). A Complete Representation of Uncertainties in Layer-Counted Paleoclimatic Archives. Climate of the Past, 13(9): 1169-1180. doi:10.5194/cp-13-1169-2017 .
See also
Other proxy tools:
proxy_plot
Examples
if (FALSE) { # \dontrun{
## Get NGRIP records
data("ngrip2010", package = "folio")
ngrip2010 <- subset(ngrip2010, !is.na(MCE))
ngrip2010 <- ngrip2010[nrow(ngrip2010):1, ] # Sort in chronological order
## Replicate fig. 3d from Boers et al. (2017)
## /!\ This may take a while... /!\
ngrip_record <- proxy_ensemble(
depth = ngrip2010$depth,
proxy = ngrip2010$delta,
proxy_error = 0.01,
step = 0.001,
time = ngrip2010$age,
time_error = ngrip2010$MCE,
calendar = b2k(), # /!\
by = 20,
n = 30
)
plot(ngrip_record)
} # }