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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: pencopula-package
> ### Title: The package 'pencopula' offers routines for estimating
> ###   multivariate penalized copula densities and copula distribution.
> ### Aliases: pencopula-package
> ### Keywords: nonparametric
> 
> ### ** Examples
> 
> Y <- cbind(runif(200),runif(200))
> plot(pencopula(Y,d=4,D=4,lambda=rep(10,2),base="B-spline"))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
pencopula
 --- call from context --- 
my.IC(penden.env)
 --- call from argument --- 
while (class(aa) == "try-error") {
    aa <- try(solve(get("Derv2.pen", penden.env) + diag(i * eps, 
        dim(get("Derv2.pen", penden.env))[1])))
    i <- i + 1
}
 --- R stacktrace ---
where 1: my.IC(penden.env)
where 2: calculate(penden.env)
where 3: pencopula(Y, d = 4, D = 4, lambda = rep(10, 2), base = "B-spline")
where 4: plot(pencopula(Y, d = 4, D = 4, lambda = rep(10, 2), base = "B-spline"))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (penden.env) 
{
    aa <- try(solve(get("Derv2.pen", penden.env)))
    eps <- 1e+08
    i <- 1
    while (class(aa) == "try-error") {
        aa <- try(solve(get("Derv2.pen", penden.env) + diag(i * 
            eps, dim(get("Derv2.pen", penden.env))[1])))
        i <- i + 1
    }
    if (get("base", penden.env) == "B-spline") 
        mytrace <- sum(diag(aa %*% (get("Derv2.cal", penden.env))))
    if (get("base", penden.env) == "Bernstein") 
        mytrace <- get("DD", penden.env)
    assign("AIC", -2 * get("log.like", penden.env) + 2 * mytrace, 
        penden.env)
    assign("cAIC", get("AIC", penden.env) + (2 * mytrace * (mytrace + 
        1))/(get("n", penden.env) - mytrace - 1), penden.env)
    assign("BIC", -2 * get("log.like", penden.env) + mytrace * 
        log(get("n", penden.env)), penden.env)
    assign("mytrace", mytrace, penden.env)
}
<bytecode: 0xa0ad320>
<environment: namespace:pencopula>
 --- function search by body ---
Function my.IC in namespace pencopula has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in while (class(aa) == "try-error") { : 
  the condition has length > 1
Calls: plot -> pencopula -> calculate -> my.IC
Execution halted