A graphical summary of the statistical inference of an OSL age
Arguments
- object
RLum.Results, numeric (required): an object produced by combine_De_Dr. Alternatively, a numeric vector of a parameter from an MCMC process
- level
numeric (with default): probability of shown credible interval
- digits
integer (with default): number of digits considered for the calculation
- verbose
logical (with default): enable/disable additional terminal output
- ...
further arguments to modify the plot, supported:
xlim,ylim,xlab,ylab,main,lwd,lty,col,polygon_col,polygon_density,rug
Value
A posterior distribution plot and an RLum.Results object with the credible interval.
Details
The function is called automatically by combine_De_Dr
Author
Anne Philippe, Université de Nantes (France), Jean-Michel Galharret, Université de Nantes (France), Norbert Mercier, IRAMAT-CRP2A, Université Bordeaux Montaigne (France), Sebastian Kreutzer, Institute of Geography, Heidelberg University (Germany) , RLum Developer Team
How to cite
Philippe, A., Galharret, J., Mercier, N., Kreutzer, S., 2024. plot_OSLAgeSummary(): Plot Posterior OSL-Age Summary. Function version 0.1.0. In: Kreutzer, S., Burow, C., Dietze, M., Fuchs, M.C., Schmidt, C., Fischer, M., Friedrich, J., Mercier, N., Philippe, A., Riedesel, S., Autzen, M., Mittelstrass, D., Gray, H.J., Galharret, J., Colombo, M., 2024. Luminescence: Comprehensive Luminescence Dating Data Analysis. R package version 0.9.26. https://r-lum.github.io/Luminescence/
Examples
##generate random data
set.seed(1234)
object <- rnorm(1000, 100, 10)
plot_OSLAgeSummary(object)
#>
#> [plot_OSLAgeSummary()]
#> Credible Interval (95 %): 80.5 : 120.6
#> Bayes estimate (posterior mean ± sd): 99.7 ± 10
#>
#> [RLum.Results-class]
#> originator: plot_OSLAgeSummary()
#> data: 3
#> .. $Estimate : numeric
#> .. $Credible_Interval : matrix
#> .. $level : numeric
#> additional info elements: 1