Plot Posterior OSL-Age Summary

Source: R/plot_OSLAgeSummary.R

A graphical summary of the statistical inference of an OSL age

plot_OSLAgeSummary(object, level = 0.95, digits = 1L, verbose = TRUE, ...)

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

Function version

0.1.0

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., 2023. 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., 2023. Luminescence: Comprehensive Luminescence Dating Data Analysis. R package version 0.9.23. https://CRAN.R-project.org/package=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