Learn R Programming

Luminescence (version 0.3.1)

calc_MaxDose3: Apply the maximum age model to a given De distribution

Description

Function to fit the maximum age model to De data. This function is a modified version of the three parameter minimum age model after Galbraith et al. (1999) using a similiar approach described in Olley et al. (2006).

Usage

calc_MaxDose3(input.data, sigmab, log = TRUE, sample.id = "unknown sample", 
    gamma.xlb = 0.1, gamma.xub = 100, sigma.xlb = 0.001, sigma.xub = 5, 
    init.gamma = 10, init.sigma = 1.2, init.p0 = 0.01, ignore.NA = FALSE, 
    calc.ProfileLikelihoods = TRUE, console.ProfileLikelihoods = FALSE, 
    console.extendedOutput = FALSE, output.file = FALSE, output.filename = "default", 
    output.plot = FALSE, output.indices = 3)

Arguments

input.data
RLum.Results or data.frame (required): for data.frame: two columns with De (input.data[,1]) and De error (values[,2])
sigmab
numeric (required): spread in De values given as a fraction (e.g. 0.2). This value represents the expected overdispersion in the data, if the sample is well-bleached (Cunningham & Walling 2012, p
log
logical (with default): fit the (un-)logged three parameter maximum dose model to De data. An un-logged version is currently not supported
sample.id
character (with default): sample id
gamma.xlb
numeric (with default): lower boundary of gamma
gamma.xub
numeric (with default): upper boundary of gamma
sigma.xlb
numeric (with default): lower boundary of sigma
sigma.xub
numeric (with default): upper boundary of sigma
init.gamma
numeric (with default): starting value of gamma
init.sigma
numeric (with default): starting value of sigma
init.p0
numeric (with default): starting value of p0
ignore.NA
logical (with default): ignore NA values during log likelihood calculations. See details.
calc.ProfileLikelihoods
logical (with default): calculate profile log likelihood functions for gamma, sigma, p0. See output.indices.
console.ProfileLikelihoods
logical (with default): print profile log likelihood functions for gamma, sigma, p0 to console.
console.extendedOutput
logical (with default): extended terminal output
output.file
logical (with default): save results to file. See output.filename.
output.filename
character (with default): desired filename, else results are saved to default-3R(-UL).res
output.plot
logical (with default): plot output (TRUE/FALSE)
output.indices
numeric (with default): requires calc.ProfileLikelihoods = TRUE. Indices: 1 = gamma, 2 = gamma/sigma, 3 = gamma/sigma/p0.

Value

  • Returns a plot (optional) and terminal output. A file containing statistical results is provided if desired. In addition an RLum.Results object is returned containing the following element:
  • resultsdata.frame with statistical parameters.
  • The output should be accessed using the function get_RLum.Results

Details

Parameters This model has three parameters: rl{ gamma: maximum dose on the log scale sigma: spread in ages above the maximum p0: proportion of grains at gamma } Data transformation To estimate the maximum dose population and its standard error, the three parameter minimum age model of Galbraith et al. (1999) is adapted. The measured De values are transformed as follows: 1. convert De values to natural logs 2. multiply the logged data to creat a mirror image of the De distribution 3. shift De values along x-axis by the smallest x-value found to obtain only positive values 4. apply the MAM to these data, after combining the square of the measurement error associated with each De value with a relative error specified by sigmab When all calculations are done, results are then converted as follows 1. subtract the x-offset 2. multiply the natural logs by -1 3. take the exponent to obtain the maximum dose estimate in Gy (Un-)logged model In the original version of the three-parameter maximum dose model, the basic data are the natural logarithms of the De estimates and relative standard errors of the De estimates. This model will be applied if log = TRUE. If log = FALSE, the modified un-logged model will be applied instead. This has essentially the same form as the original version. gamma and sigma are in Gy and gamma becomes the maximum true dose in the population. NOTE: This option is disabled for the maximum dose model, as the data transformation requires logged De values! While the original (logged) version of the mimimum dose model may be appropriate for most samples (i.e. De distributions), the modified (un-logged) version is specially designed for modern-age and young samples containing negative, zero or near-zero De estimates (Arnold et al. 2009, p. 323). Boundaries Depending on the data, the upper and lower bounds for gamma (gamma.xlb and gamma.xub) need to be specified. If the final estimate of gamma is on the boundary, gamma.xlb and gamma.xub need to be adjusted appropriately, so that gamma lies within the bounds. The same applies for sigma boundaries (sigma.xlb and sigma.xub). Initial values The log likelihood calculations use the nlminb function. Accordingly, initial values for the three parameters init.gamma, init.sigma and init.p0 need to be specified. Ignore NA values In some cases during the calculation of the log likelihoods NA values are produced instantly terminating the minimum age model. It is advised to adjust some of the values provided for any argument. If the model still produces NA values it is possible to omit these values by setting ignore.NA = TRUE. While the model is then usually able to finish all calculations the integrity of the final estimates cannot be ensured. Use this argument at your own risk.

References

Arnold, L.J., Roberts, R.G., Galbraith, R.F. & DeLong, S.B., 2009. A revised burial dose estimation procedure for optical dating of young and modern-age sediments. Quaternary Geochronology, 4, pp. 306-325. Galbraith, R.F. & Laslett, G.M., 1993. Statistical models for mixed fission track ages. Nuclear Tracks Radiation Measurements, 4, pp. 459-470. Galbraith, R.F., Roberts, R.G., Laslett, G.M., Yoshida, H. & Olley, J.M., 1999. Optical dating of single grains of quartz from Jinmium rock shelter, northern Australia. Part I: experimental design and statistical models. Archaeometry, 41, pp. 339-364. Galbraith, R.F., 2005. Statistics for Fission Track Analysis, Chapman & Hall/CRC, Boca Raton. Galbraith, R.F. & Roberts, R.G., 2012. Statistical aspects of equivalent dose and error calculation and display in OSL dating: An overview and some recommendations. Quaternary Geochronology, 11, pp. 1-27. Olley, J.M., Roberts, R.G., Yoshida, H., Bowler, J.M., 2006. Single-grain optical dating of grave-infill associated with human burials at Lake Mungo, Australia. Quaternary Science Reviews, 25, pp. 2469-2474. Further reading Arnold, L.J. & Roberts, R.G., 2009. Stochastic modelling of multi-grain equivalent dose (De) distributions: Implications for OSL dating of sediment mixtures. Quaternary Geochronology, 4, pp. 204-230. Bailey, R.M. & Arnold, L.J., 2006. Statistical modelling of single grain quartz De distributions and an assessment of procedures for estimating burial dose. Quaternary Science Reviews, 25, pp. 2475-2502. Cunningham, A.C. & Wallinga, J., 2012. Realizing the potential of fluvial archives using robust OSL chronologies. Quaternary Geochronology, 12, pp. 98-106. Rodnight, H., Duller, G.A.T., Wintle, A.G. & Tooth, S., 2006. Assessing the reproducibility and accuracy of optical dating of fluvial deposits. Quaternary Geochronology, 1, pp. 109-120. Rodnight, H., 2008. How many equivalent dose values are needed to obtain a reproducible distribution?. Ancient TL, 26, pp. 3-10.

See Also

nlminb, calc_CentralDose, calc_CommonDose, calc_FiniteMixture, calc_FuchsLang2001, calc_MinDose4

Examples

Run this code
## load example data
data(ExampleData.DeValues, envir = environment())

## apply the logged maximum dose model
## NOTE THAT THE EXAMPLE DATA SET IS NOT SUITABLE FOR THE
## MAXIMUM DOSE MODEL.
calc_MaxDose3(ExampleData.DeValues,
              sigmab = 0.3, gamma.xub = 4000)

Run the code above in your browser using DataLab