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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ProjKrigSp
> ### Title: Kriging using projected normal model.
> ### Aliases: ProjKrigSp
> 
> ### ** Examples
> 
> library(CircSpaceTime)
> ## auxiliary function
> rmnorm <- function(n = 1, mean = rep(0, d), varcov){
+  d <- if (is.matrix(varcov))
+    ncol(varcov)
+  else 1
+  z <- matrix(rnorm(n * d), n, d) %*% chol(varcov)
+  y <- t(mean + t(z))
+  return(y)
+ }
> 
> ####
> # Simulation using exponential  spatial covariance function
> ####
> set.seed(1)
> n <- 20
> coords <- cbind(runif(n,0,100), runif(n,0,100))
> Dist <- as.matrix(dist(coords))
> 
> rho     <- 0.05
> tau     <- 0.2
> sigma2  <- 1
> alpha   <- c(0.5,0.5)
> SIGMA   <- sigma2*exp(-rho*Dist)
> 
> Y <- rmnorm(1,rep(alpha,times=n),
+            kronecker(SIGMA, matrix(c( sigma2,sqrt(sigma2)*tau,sqrt(sigma2)*tau,1 ) ,nrow=2 )))
> theta <- c()
> for(i in 1:n) {
+  theta[i] <- atan2(Y[(i-1)*2+2],Y[(i-1)*2+1])
+ }
> theta <- theta %% (2*pi) #to be sure to have values in (0,2pi)
> 
> hist(theta)
> rose_diag(theta)
> 
> val <- sample(1:n,round(n*0.1))
> 
> ################some useful quantities
> rho.min <- 3/max(Dist)
> rho.max <- rho.min+0.5
> 
> set.seed(100)
> 
> mod <- ProjSp(
+  x       = theta[-val],
+  coords    = coords[-val,],
+  start   = list("alpha"      = c(0.92, 0.18, 0.56, -0.35),
+                 "rho"     = c(0.51,0.15),
+                 "tau"     = c(0.46, 0.66),
+                 "sigma2"    = c(0.27, 0.3),
+                 "r"       = abs(rnorm(  length(theta))  )),
+  priors   = list("rho"      = c(rho.min,rho.max),
+                  "tau"      = c(-1,1),
+                  "sigma2"    = c(10,3),
+                  "alpha_mu" = c(0, 0),
+                  "alpha_sigma" = diag(10,2)
+  )  ,
+  sd_prop   = list("sigma2" = 0.1, "tau" = 0.1, "rho" = 0.1,
+                   "sdr" = sample(.05,length(theta), replace = TRUE)),
+  iter    = 10000,
+  BurninThin    = c(burnin = 7000, thin = 10),
+  accept_ratio = 0.234,
+  adapt_param = c(start = 130000, end = 120000, exp = 0.5),#no adaptation
+  corr_fun = "exponential",
+  kappa_matern = .5,
+  n_chains = 2 ,
+  parallel = TRUE ,
+  n_cores = 2
+ )
Error in ProjSp(x = theta[-val], coords = coords[-val, ], start = list(alpha = c(0.92,  : 
  You shoul install doParallel package in order to use parallel = TRUE option
Execution halted