CRAN Package Check Results for Package mnormt

Last updated on 2019-11-26 00:51:58 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.5-5 4.16 19.88 24.04 ERROR
r-devel-linux-x86_64-debian-gcc 1.5-5 3.21 15.97 19.18 ERROR
r-devel-linux-x86_64-fedora-clang 1.5-5 28.63 NOTE
r-devel-linux-x86_64-fedora-gcc 1.5-5 27.74 NOTE
r-devel-windows-ix86+x86_64 1.5-5 12.00 38.00 50.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.5-5 17.00 36.00 53.00 OK
r-patched-linux-x86_64 1.5-5 3.53 18.44 21.97 OK
r-patched-solaris-x86 1.5-5 43.30 OK
r-release-linux-x86_64 1.5-5 3.67 18.84 22.51 OK
r-release-windows-ix86+x86_64 1.5-5 11.00 49.00 60.00 OK
r-release-osx-x86_64 1.5-5 OK
r-oldrel-windows-ix86+x86_64 1.5-5 10.00 31.00 41.00 OK
r-oldrel-osx-x86_64 1.5-5 OK

Additional issues

valgrind

Check Details

Version: 1.5-5
Check: examples
Result: ERROR
    Running examples in 'mnormt-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: dmnorm
    > ### Title: Multivariate normal distribution
    > ### Aliases: dmnorm pmnorm rmnorm sadmvn
    > ### Keywords: distribution multivariate
    >
    > ### ** Examples
    >
    > x <- seq(-2, 4, length=21)
    > y <- cos(2*x) + 10
    > z <- x + sin(3*y)
    > mu <- c(1,12,2)
    > Sigma <- matrix(c(1,2,0,2,5,0.5,0,0.5,3), 3, 3)
    > f <- dmnorm(cbind(x,y,z), mu, Sigma)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mnormt
     --- call from context ---
    pd.solve(varcov, log.det = TRUE)
     --- call from argument ---
    if (class(u) == "try-error") {
     if (silent)
     return(NULL)
     else stop("x appears to be not positive definite")
    }
     --- R stacktrace ---
    where 1: pd.solve(varcov, log.det = TRUE)
    where 2: dmnorm(cbind(x, y, z), mu, Sigma)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x, silent = FALSE, log.det = FALSE)
    {
     if (is.null(x))
     return(NULL)
     if (any(is.na(x))) {
     if (silent)
     return(NULL)
     else stop("NA's in x")
     }
     if (length(x) == 1)
     x <- as.matrix(x)
     if (!is.matrix(x)) {
     if (silent)
     return(NULL)
     else stop("x is not a matrix")
     }
     if (max(abs(x - t(x))) > .Machine$double.eps) {
     if (silent)
     return(NULL)
     else stop("x appears to be not symmetric")
     }
     x <- (x + t(x))/2
     u <- try(chol(x, pivot = FALSE), silent = silent)
     if (class(u) == "try-error") {
     if (silent)
     return(NULL)
     else stop("x appears to be not positive definite")
     }
     inv <- chol2inv(u)
     if (log.det)
     attr(inv, "log.det") <- 2 * sum(log(diag(u)))
     dimnames(inv) <- rev(dimnames(x))
     return(inv)
    }
    <bytecode: 0x2c2c7d0>
    <environment: namespace:mnormt>
     --- function search by body ---
    Function pd.solve in namespace mnormt has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.5-5
Check: examples
Result: ERROR
    Running examples in ‘mnormt-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: dmnorm
    > ### Title: Multivariate normal distribution
    > ### Aliases: dmnorm pmnorm rmnorm sadmvn
    > ### Keywords: distribution multivariate
    >
    > ### ** Examples
    >
    > x <- seq(-2, 4, length=21)
    > y <- cos(2*x) + 10
    > z <- x + sin(3*y)
    > mu <- c(1,12,2)
    > Sigma <- matrix(c(1,2,0,2,5,0.5,0,0.5,3), 3, 3)
    > f <- dmnorm(cbind(x,y,z), mu, Sigma)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mnormt
     --- call from context ---
    pd.solve(varcov, log.det = TRUE)
     --- call from argument ---
    if (class(u) == "try-error") {
     if (silent)
     return(NULL)
     else stop("x appears to be not positive definite")
    }
     --- R stacktrace ---
    where 1: pd.solve(varcov, log.det = TRUE)
    where 2: dmnorm(cbind(x, y, z), mu, Sigma)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x, silent = FALSE, log.det = FALSE)
    {
     if (is.null(x))
     return(NULL)
     if (any(is.na(x))) {
     if (silent)
     return(NULL)
     else stop("NA's in x")
     }
     if (length(x) == 1)
     x <- as.matrix(x)
     if (!is.matrix(x)) {
     if (silent)
     return(NULL)
     else stop("x is not a matrix")
     }
     if (max(abs(x - t(x))) > .Machine$double.eps) {
     if (silent)
     return(NULL)
     else stop("x appears to be not symmetric")
     }
     x <- (x + t(x))/2
     u <- try(chol(x, pivot = FALSE), silent = silent)
     if (class(u) == "try-error") {
     if (silent)
     return(NULL)
     else stop("x appears to be not positive definite")
     }
     inv <- chol2inv(u)
     if (log.det)
     attr(inv, "log.det") <- 2 * sum(log(diag(u)))
     dimnames(inv) <- rev(dimnames(x))
     return(inv)
    }
    <bytecode: 0x55687699e8d8>
    <environment: namespace:mnormt>
     --- function search by body ---
    Function pd.solve in namespace mnormt has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.5-5
Check: compiled code
Result: NOTE
    File ‘mnormt/libs/mnormt.so’:
     Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
    
    It is good practice to register native routines and to disable symbol
    search.
    
    See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc