A synthetic data set of 210Pb activity per units of depth below surface. See example on how the data was generated.
A data.frame
with two with two columns:
$depth | depth below surface (cm) |
$activity | 210Pb activity (Bq/kg) |
1 2 3 4 5 6 7 8 9 10 11 | ## How the data was generated
# a0 = 100 Bq/kg
# s = 0.5 cm/a
Pb <- data.frame(depth = seq(0, 30, length.out = 20),
activity = jitter(
100 * exp(-0.03114 / 0.5 * seq(0, 30, length.out = 20)),
factor = 15))
## Use example data
data(Pb, envir = environment())
r <- calc_SedimentationRate(x = Pb)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.