Running examples in 'bpnreg-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: bpnr
> ### Title: Fit a Bayesian circular regression model
> ### Aliases: bpnr
> 
> ### ** Examples
> 
> library(bpnreg)
> bpnr(Phaserad ~ Cond + AvAmp, Motor)
The circular outcome contains values that are out of range. 
Please check that the circular outcome is measured in radians.Projected Normal Regression 

Model 

Call: 
bpnr(pred.I = Phaserad ~ Cond + AvAmp, data = Motor)

MCMC: 
iterations = 1000
burn-in = 1
lag = 1

Model Fit: 
        Statistic Parameters
lppd    -57.02365   8.000000
DIC     130.34791   8.145129
DIC.alt 131.83366   8.888006
WAIC    130.35826   8.155482
WAIC2   132.12102   9.036860


Linear Coefficients 

Component I: 
                    mean        mode         sd      LB HPD     UB HPD
(Intercept)   1.34754886  1.30671297 0.44667319  0.45430026 2.16789547
Condsemi.imp -0.49584241 -0.64433593 0.64294993 -1.70597740 0.79710481
Condimp      -0.61232744 -0.80664343 0.63950308 -1.82413368 0.75843386
AvAmp        -0.01103374 -0.01400354 0.01216878 -0.03477569 0.01296079

Component II: 
                    mean         mode         sd      LB HPD      UB HPD
(Intercept)   1.44491644  1.488239368 0.44357232  0.58037756 2.288684018
Condsemi.imp -1.21442589 -1.266966560 0.61442645 -2.28252888 0.101767720
Condimp      -1.01734635 -0.780696944 0.62398004 -2.23632512 0.143223732
AvAmp        -0.01208783 -0.009933872 0.01115059 -0.03371894 0.009371995


Circular Coefficients 

Continuous variables: 
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
bpnreg
 --- call from context --- 
print.bpnr(x)
 --- call from argument --- 
if (class(x$circ.coef) == "character") {
    print(x$circ.coef)
} else {
    print(x$circ.coef[, 1:5])
    cat("\n")
    print(x$circ.coef[, 6:10])
    cat("\n")
    print(x$circ.coef[, 11:15])
    cat("\n")
    print(x$circ.coef[, 16:20])
    cat("\n")
    print(x$circ.coef[, 21:25])
    cat("\n")
    print(x$circ.coef[, 26:30])
}
 --- R stacktrace ---
where 1: print.bpnr(x)
where 2: (function (x, ...) 
UseMethod("print"))(x)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, ...) 
{
    cat("Projected Normal Regression \n\n")
    cat("Model \n\n")
    cat("Call: \n", paste(deparse(x$Call), sep = "\n", collapse = "\n"), 
        "\n\n", sep = "")
    cat("MCMC: \n", paste("iterations = ", x$its, "\n", "burn-in = ", 
        x$burn, "\n", "lag = ", x$lag, sep = ""), "\n\n", sep = "")
    cat("Model Fit: \n")
    mf <- matrix(NA, 5L, 2L)
    colnames(mf) <- c("Statistic", "Parameters")
    rownames(mf) <- c("lppd", "DIC", "DIC.alt", "WAIC", "WAIC2")
    mf[, 1] <- unlist(x$model.fit[c("lppd", "DIC", "DIC_alt", 
        "WAIC", "WAIC2")])
    mf[, 2] <- c(x$p1 + x$p2, unlist(x$model.fit[c("pD", "pV", 
        "pWAIC", "pWAIC2")]))
    print(mf)
    cat("\n\n")
    cat("Linear Coefficients \n\n")
    cat("Component I: \n")
    print(x$lin.coef.I)
    cat("\n")
    cat("Component II: \n")
    print(x$lin.coef.II)
    cat("\n\n")
    cat("Circular Coefficients \n\n")
    cat("Continuous variables: \n")
    if (class(x$circ.coef) == "character") {
        print(x$circ.coef)
    }
    else {
        print(x$circ.coef[, 1:5])
        cat("\n")
        print(x$circ.coef[, 6:10])
        cat("\n")
        print(x$circ.coef[, 11:15])
        cat("\n")
        print(x$circ.coef[, 16:20])
        cat("\n")
        print(x$circ.coef[, 21:25])
        cat("\n")
        print(x$circ.coef[, 26:30])
    }
    cat("\n")
    cat("Categorical variables: \n\n")
    cat("Means: \n")
    print(x$circ.coef.means)
    cat("\n")
    cat("Differences: \n")
    print(x$circ.coef.cat)
    cat("\n")
}
<bytecode: 0x3a2ee60>
<environment: namespace:bpnreg>
 --- function search by body ---
Function print.bpnr in namespace bpnreg has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1