CRAN Package Check Results for Package pencopula

Last updated on 2020-02-19 10:49:02 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3.5.1 8.77 69.53 78.30 ERROR
r-devel-linux-x86_64-debian-gcc 0.3.5.1 7.94 54.88 62.82 ERROR
r-devel-linux-x86_64-fedora-clang 0.3.5.1 95.98 ERROR
r-devel-linux-x86_64-fedora-gcc 0.3.5.1 92.71 ERROR
r-devel-windows-ix86+x86_64 0.3.5.1 16.00 77.00 93.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.3.5.1 22.00 100.00 122.00 OK
r-patched-linux-x86_64 0.3.5.1 8.46 62.72 71.18 OK
r-patched-solaris-x86 0.3.5.1 124.70 OK
r-release-linux-x86_64 0.3.5.1 8.74 63.46 72.20 OK
r-release-windows-ix86+x86_64 0.3.5.1 14.00 72.00 86.00 OK
r-release-osx-x86_64 0.3.5.1 OK
r-oldrel-windows-ix86+x86_64 0.3.5.1 9.00 62.00 71.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: 0xb64bfd0>
    <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
Flavor: r-devel-linux-x86_64-debian-clang

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: 0x56077ac83ac8>
    <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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.3.5.1
Check: examples
Result: ERROR
    Running examples in ‘pencopula-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0xbe017e8>
    <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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.3.5.1
Check: examples
Result: ERROR
    Running examples in ‘pencopula-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0xb651d50>
    <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
Flavor: r-devel-linux-x86_64-fedora-gcc