Running examples in ‘BayLum-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: AgeC14_Computation
> ### Title: Bayesian analysis for age estimation of 14C age of various
> ###   samples
> ### Aliases: AgeC14_Computation
> 
> ### ** Examples
> 
> ## Load data
> data(DATA_C14,envir = environment())
> C14Cal=DATA_C14$C14[,1]
> SigmaC14Cal=DATA_C14$C14[,2]
> Names=DATA_C14$Names
> nb_sample=length(Names)
> 
> ## Age computation of samples without stratigraphic relations
> Age <- AgeC14_Computation(
+ Data_C14Cal = C14Cal,
+ Data_SigmaC14Cal = SigmaC14Cal,
+ SampleNames = Names,
+ Nb_sample = nb_sample,
+ PriorAge = rep(c(20000,60000),nb_sample),
+ Iter = 500,
+ quiet = TRUE)
Warning: [plot_MCMC()] 'n.iter' out of range, reset to number of observations
Warning: [Age14_Computation()] Outliers detected in sample: S-EVA-26510, S-EVA-26506, S-EVA-26507, S-EVA-26508


>> MCMC Convergence of Age parameters <<
----------------------------------------------
Sample name   Bayes estimate   Uppers credible interval
A_S-EVA-26510 	 1.01 		 1.02 
A_S-EVA-26506 	 1 		 1 
A_S-EVA-26507 	 1 		 1.02 
A_S-EVA-26508 	 1.01 		 1.05 


---------------------------------------------------------------------------------------------------
 *** WARNING: The following information are only valid if the MCMC chains have converged  ***
---------------------------------------------------------------------------------------------------



>> Bayes estimates of Age for each sample and credible interval <<
------------------------------------------------------
Sample name 	 Bayes estimate  Credible interval: 
A_S-EVA-26510 	 39668 
						 lower bound 	 upper bound
				 at level 95% 	 22326 		 59420 
				 at level 68% 	 24621 		 48896 
------------------------------------------------------
Sample name 	 Bayes estimate  Credible interval: 
A_S-EVA-26506 	 40004 
						 lower bound 	 upper bound
				 at level 95% 	 22853 		 59731 
				 at level 68% 	 28395 		 53031 
------------------------------------------------------
Sample name 	 Bayes estimate  Credible interval: 
A_S-EVA-26507 	 39580 
						 lower bound 	 upper bound
				 at level 95% 	 20386 		 58734 
				 at level 68% 	 20386 		 46390 
------------------------------------------------------
Sample name 	 Bayes estimate  Credible interval: 
A_S-EVA-26508 	 40720 
						 lower bound 	 upper bound
				 at level 95% 	 21228 		 58759 
				 at level 68% 	 33907 		 59982 

------------------------------------------------------
> 
> 
> 
> 
> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
> base::cat("AgeC14_Computation", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
Error: connections left open:
	Model_AgeC14[[Model]] (textConnection)
Execution halted