CRAN Package Check Results for Package pencopula

Last updated on 2019-12-05 14:48:54 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3.5.1 8.68 67.67 76.35 ERROR
r-devel-linux-x86_64-debian-gcc 0.3.5.1 8.27 53.19 61.46 OK
r-devel-linux-x86_64-fedora-clang 0.3.5.1 88.52 OK
r-devel-linux-x86_64-fedora-gcc 0.3.5.1 87.80 OK
r-devel-windows-ix86+x86_64 0.3.5.1 13.00 98.00 111.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.3.5.1 15.00 105.00 120.00 OK
r-patched-linux-x86_64 0.3.5.1 7.71 62.86 70.57 OK
r-patched-solaris-x86 0.3.5.1 134.00 OK
r-release-linux-x86_64 0.3.5.1 7.36 62.86 70.22 OK
r-release-windows-ix86+x86_64 0.3.5.1 19.00 76.00 95.00 OK
r-release-osx-x86_64 0.3.5.1 OK
r-oldrel-windows-ix86+x86_64 0.3.5.1 11.00 95.00 106.00 OK
r-oldrel-osx-x86_64 0.3.5.1 OK

Check Details

Version: 0.3.5.1
Check: examples
Result: ERROR
    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: 0xb3b2828>
    <environment: namespace:pencopula>
     --- function search by body ---
    Function my.IC in namespace pencopula has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang