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

> ### Name: predict.vinereg
> ### Title: Predict conditional mean and quantiles from a D-vine regression
> ###   model
> ### Aliases: predict.vinereg fitted.vinereg
> 
> ### ** Examples
> 
> # simulate data
> x <- matrix(rnorm(200), 100, 2)
> y <- x %*% c(1, -2)
> dat <- data.frame(y = y, x = x, z = as.factor(rbinom(100, 2, 0.5)))
> 
> # fit vine regression model
> (fit <- vinereg(y ~ ., dat))
D-vine regression model: y | x.2, x.1, z.1 
nobs = 100, edf = 3, cll = 60.95, caic = -115.89, cbic = -108.08 
> 
> # inspect model
> summary(fit)
  var edf         cll          caic        cbic      p_value
1   y   0 -212.132012  424.26402417  424.264024           NA
2 x.2   1   83.426111 -164.85222146 -162.247051 3.603376e-38
3 x.1   1  188.620390 -375.24078075 -372.635611 4.962406e-84
4 z.1   1    1.030921   -0.06184121    2.543329 1.510276e-01
> plot_effects(fit)
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 0.995
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 1.005
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  0
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 1.01
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 0.995
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 1.005
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  0
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 1.01
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 0.995
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 1.005
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  0
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 1.01
> 
> # model predictions
> mu_hat <- predict(fit, newdata = dat, alpha = NA) # mean
> med_hat <- predict(fit, newdata = dat, alpha = 0.5) # median
> 
> # observed vs predicted
> plot(cbind(y, mu_hat))
> 
> ## fixed variable order (no selection)
> (fit <- vinereg(y ~ ., dat, order = c("x.2", "x.1", "z.1")))
Error in vinecop_select_cpp(data = as.matrix(data), structure = structure,  : 
  C++ call interrupted by the user.
Calls: vinereg -> do.call -> <Anonymous> -> vinecop_select_cpp
Execution halted