dr_shell: Delta R from the radiocarbon date of the marine material with... In deltar: Calculation of Delta R Values

Description

Computes Delta R value from the radiocarbon date of a marine sample with known collection date. In most cases such materials are represented by molluscan shells from museum collections.

Usage

 `1` ```dr_shell(dates, name = "", N = 10000, CI = 0.95, make.plot = FALSE) ```

Arguments

 `dates` A numeric vector, which supplies dates to the function. The order of dates in this vector is essential: first, a collection date (in calendar years AD/BC), then marine radiocarbon date and its standard deviation. `name` Laboratory code of a radiocarbon date or any other sample ID. Default is blank. `N` Number of iterations. Must be a positive integer. Note that numbers too big can result in very long computation times. Default is 10000. `CI` Probability with which true Delta R value is contained within computed interval. Must be between 0 and 1. Default is 0.95. `make.plot` A logical flag. Makes a histogram of the Delta R values obtained during each iteration if TRUE.

Details

Delta R or regional correction is defined as a difference between measured and modeled radiocarbon ages of a sample (Stuiver, Braziunas, 1993). Measured radiocarbon age of a sample is supplied to the function by the "dates" argument. To compute modeled radiocarbon age the function first transforms a collection date into the year BP and looks for a corresponding modeled radiocarbon age in the "marine13" data set (Reimer et al. 2013). For full details and references of the "marine13" calibration curve see http://www.radiocarbon.org/IntCal13.htm. For this and other functions of the 'deltar' package the "marine13" data set is made available via the 'Bchron' package (Haslett, Parnell, 2008; Parnell et al., 2008).

Then the function computes Delta R value in a series of iterations, number of which is defined by the "N" argument. During each iteration it chooses one year of measured radiocarbon age. The latter is supplied as its mean and standard deviation, thus forming normal distribution from which the year is chosen according to its probability. The function does the same with the modeled radiocarbon age and finds the difference between the two. This gives a series of assessments of Delta R values stored in a vector of length N. The function then computes basic statistics of these Delta R assessments and produces a histogram of Delta R probability densities. The histogram has a total area of one and is supplemented with a curve of probability densities of the corresponding normal distribution.

The results of the function call can be slightly different with the same arguments supplied to the function. This difference is due to the chosen numerical method of computations and is insignificant with reasonable number of iterations.

Value

If the "make.plot" argument is set to TRUE, the function produces a histogram of Delta R values obtained during each iteration. Regardless of the "make.plot" argument settings, the function returns a list containing:

• mean <e2><80><94> mean Delta R value

• median <e2><80><94> median Delta R value

• sd <e2><80><94> standard deviation of Delta R value

• quantile <e2><80><94> an interval containing true Delta R value with a probability set by the "CI" argument. Default is 0.95

• p.value <e2><80><94> the p value of Kolmogorov <e2><80><93> Smirnov test of normality of computed Delta R values

• delta <e2><80><94> a numeric vector containing a series of assessments of Delta R value obtained during each iteration

References

Haslett J, Parnell AC. 2008. A simple monotone process with application to radiocarbondated depth chronologies. Journal of the Royal Statistical Society, Series C. 57: 399-418. <doi: 10.1111/j.1467-9876.2008.00623.x>

Parnell AC, Haslett J, Allen JRM, Buck CE, Huntley B. 2008. A flexible approach to assessing synchroneity of past events using Bayesian reconstructions of sedimentation history. Quaternary Science Reviews. 27(19-20): 1872-1885. <doi: 10.1111/j.1467-9876.2008.00623.x>

Reimer PJ, Bard E, Bayliss A, Beck JW, Blackwell PG, Bronk Ramsey C, Buck CE, Cheng H, Edwards RL, Friedrich M, Grootes PM, Guilderson TP, Haflidason H, Hajdas I, Hatt<c3><a9> C, Heaton TJ, Hoffmann DL, Hogg AG, Hughen KA, Kaiser KF, Kromer B, Manning SW, Niu M, Reimer RW, Richards DA, Scott EM, Southon JR, Staff RA, Turney CSM, van der Plicht J. 2013. IntCal13 and Marine13 radiocarbon age calibration curves 0<e2><80><93>50,000 years cal BP. Radiocarbon 55(4): 1869<e2><80><93>87. <doi: 10.2458/azu_js_rc.55.16947>

Stuiver M, Braziunas TF. 1993. Modeling atmospheric 14C influences and 14C ages of marine samples to 10,000 BC. Radiocarbon 35(1):137<e2><80><93>89. <doi: 10.1017/S0033822200013874>

Yoneda M, Uno H, Shibata Y, Suzuki R, Kumamoto Y, Yoshida K, Sasaki T, Suzuki A, Kawahata H. 2007. Radiocarbon marine reservoir ages in the western Pacific estimated by pre-bomb molluscan shells. Nuclear Instruments and Methods in Physics Research B 259(1): 432<e2><80><93>7. <doi: 10.1016/j.nimb.2007.01.184>

`dr_pair` `dr_df` `dr_plot`

Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17``` ```## Calculation of Delta R for Pseudocardium sybillae shell ## collected in Sakhalin in 1906 and radiocarbon dated ## 826 35 years BP, laboratory code TERRA-072305a15 ## (data from Yoneda et al., 2007, table 2) # Compute and store the results in the new object Ps <- dr_shell(c(1906, 826, 35), name = "TERRA-072305a15") # Mean value of Delta R Ps\$mean # Median value of Delta R Ps\$median # Standard deviation of Delta R Ps\$sd # An interval containing true Delta R value with probability 0.95 Ps\$quantile # p value of Kolomogorov - Smirnov test Ps\$p.value ```

Example output

```[1] 377.1146
[1] 376.8153
[1] 41.62113
2.5%    97.5%
296.3531 459.1273
[1] 0.8658864
```

deltar documentation built on May 2, 2019, 9:26 a.m.