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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: SPD_estimate
> ### Title: Estimation of a BaRatin-SPD model
> ### Aliases: SPD_estimate
> 
> ### ** Examples
> 
> # Calibration data
> H=MeyrasGaugings$h
> Q=MeyrasGaugings$Q
> uQ=MeyrasGaugings$uQ
> # Control matrix
> controlMatrix=rbind(c(1,0,0),c(0,1,0),c(0,1,1))
> # Declare variable parameters.
> bVAR=c(TRUE, TRUE, FALSE) # b's for first 2 controls (k1 and k2) are VAR
> aVAR=c(TRUE, FALSE, FALSE) # a for first control (a1) is VAR
> # Define priors.
> b1=parameter(name='b1',init=-0.6,prior.dist='Gaussian',prior.par=c(-0.6,0.5))
> a1=parameter(name='a1',init=exp(2.65),prior.dist='LogNormal',prior.par=c(2.65,0.35))
> c1=parameter(name='c1',init=1.5,prior.dist='Gaussian',prior.par=c(1.5,0.025))
> b2=parameter(name='b2',init=0,prior.dist='Gaussian',prior.par=c(-0.6,0.5))
> a2=parameter(name='a2',init=exp(3.28),prior.dist='LogNormal',prior.par=c(3.28,0.33))
> c2=parameter(name='c2',init=1.67,prior.dist='Gaussian',prior.par=c(1.67,0.025))
> b3=parameter(name='b3',init=1.2,prior.dist='Gaussian',prior.par=c(1.2,0.2))
> a3=parameter(name='a3',init=exp(3.48),prior.dist='LogNormal',prior.par=c(3.46,0.38))
> c3=parameter(name='c3',init=1.67,prior.dist='Gaussian',prior.par=c(1.67,0.025))
> pars=list(b1,a1,c1,b2,a2,c2,b3,a3,c3)
> # Define properties of VAR parameters.
> deltaPars=list(b1=c(0,0.25),a1=c(0,0.2),b2=c(0,0.5))
> periods=list(b1=MeyrasGaugings$Period,a1=c(rep(1,49),rep(2,55)),b2=MeyrasGaugings$Period)
> # Run BaM and estimate SPD parameters
> mcmcOpt=mcmcOptions(nAdapt=20,nCycles=25) # only few iterations so that the example runs fast.
> mcmc=SPD_estimate(workspace=tempdir(),controlMatrix=controlMatrix,pars=pars,
+                   bVAR=bVAR,aVAR=aVAR,deltaPars=deltaPars,periods=periods,
+                   H=H,Q=Q,uQ=uQ,mcmcOpt=mcmcOpt)
Error in if (!ok) { : argument is of length zero
Calls: SPD_estimate -> BaM
Execution halted