CRAN Package Check Results for Package pracma

Last updated on 2019-12-11 22:51:19 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.2.5 25.54 148.39 173.93 ERROR
r-devel-linux-x86_64-debian-gcc 2.2.5 17.20 124.98 142.18 OK
r-devel-linux-x86_64-fedora-clang 2.2.5 228.42 OK
r-devel-linux-x86_64-fedora-gcc 2.2.5 220.66 OK
r-devel-windows-ix86+x86_64 2.2.5 43.00 250.00 293.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.2.5 41.00 275.00 316.00 OK
r-patched-linux-x86_64 2.2.5 22.78 149.33 172.11 OK
r-patched-solaris-x86 2.2.5 253.60 OK
r-release-linux-x86_64 2.2.5 22.04 153.37 175.41 OK
r-release-windows-ix86+x86_64 2.2.5 48.00 166.00 214.00 OK
r-release-osx-x86_64 2.2.5 OK
r-oldrel-windows-ix86+x86_64 2.2.5 32.00 160.00 192.00 OK
r-oldrel-osx-x86_64 2.2.5 OK

Check Details

Version: 2.2.5
Check: examples
Result: ERROR
    Running examples in 'pracma-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: broyden
    > ### Title: Broyden's Method
    > ### Aliases: broyden
    > ### Keywords: math
    >
    > ### ** Examples
    >
    > ## Example from Quarteroni & Saleri
    > F1 <- function(x) c(x[1]^2 + x[2]^2 - 1, sin(pi*x[1]/2) + x[2]^3)
    > broyden(F1, x0 = c(1, 1))
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    pracma
     --- call from context ---
    inv(A0)
     --- call from argument ---
    if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
    }
     --- R stacktrace ---
    where 1: inv(A0)
    where 2: broyden(F1, x0 = c(1, 1))
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (a)
    {
     if (length(a) == 0)
     return(matrix(0, nrow = 0, ncol = 0))
     if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a))
     stop("Argument 'a' must be a numeric or complex matrix.")
     if (nrow(a) != ncol(a))
     stop("Matrix 'a' must be square.")
     e <- try(b <- solve(a), silent = TRUE)
     if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
     }
     return(b)
    }
    <bytecode: 0x18aca90>
    <environment: namespace:pracma>
     --- function search by body ---
    Function inv in namespace pracma has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(e) == "try-error") { : the condition has length > 1
    Calls: broyden -> inv
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.2.5
Check: tests
Result: ERROR
     Running 'blkdiag.R' [0s/1s]
     Running 'ceil.R' [0s/1s]
     Running 'chebyshev.R' [0s/0s]
     Running 'combs.R' [0s/1s]
     Running 'compan.R' [0s/1s]
     Running 'cond.R' [0s/0s]
     Running 'conv.R' [0s/1s]
     Running 'cross.R' [0s/1s]
     Running 'crossn.R' [0s/0s]
     Running 'deval.R' [0s/1s]
     Running 'diag.R' [0s/0s]
     Running 'distmat.R' [0s/0s]
     Running 'dot.R' [0s/0s]
     Running 'eig.R' [0s/1s]
     Running 'factors.R' [0s/1s]
     Running 'find.R' [0s/0s]
     Running 'findintervals.R' [0s/1s]
     Running 'findpeaks.R' [0s/1s]
     Running 'flipdim.R' [0s/0s]
     Running 'fnorm.R' [0s/1s]
     Running 'gamma.R' [0s/1s]
     Running 'gradient.R' [0s/1s]
     Running 'hadamard.R' [0s/1s]
     Running 'hankel.R' [0s/0s]
     Running 'hilb.R' [0s/0s]
     Running 'horner.R' [0s/0s]
     Running 'hypot.R' [0s/0s]
     Running 'interp1.R' [0s/1s]
     Running 'interp2.R' [0s/0s]
     Running 'inv.R' [1s/1s]
     Running 'isprime.R' [0s/0s]
     Running 'lambertW.R' [0s/1s]
     Running 'linspace.R' [0s/0s]
     Running 'magic.R' [0s/1s]
     Running 'meshgrid.R' [0s/0s]
     Running 'mldivide.R' [0s/0s]
     Running 'mod.R' [0s/1s]
     Running 'mode.R' [0s/1s]
     Running 'nextpow2.R' [0s/1s]
     Running 'norm.R' [0s/0s]
     Running 'nthroot.R' [0s/1s]
     Running 'pascal.R' [0s/0s]
     Running 'pchip.R' [0s/0s]
     Running 'perms.R' [0s/1s]
     Running 'piecewise.R' [0s/1s]
     Running 'poly.R' [0s/1s]
     Running 'polyadd.R' [0s/1s]
     Running 'polyarea.R' [0s/1s]
     Running 'polyder.R' [0s/1s]
     Running 'polyfit.R' [0s/1s]
     Running 'polyint.R' [0s/1s]
     Running 'polymul.R' [0s/1s]
     Running 'polyval.R' [0s/1s]
     Running 'pow2.R' [0s/1s]
     Running 'primes.R' [0s/1s]
     Running 'quad.R' [0s/0s]
     Running 'quadrature.R' [1s/1s]
     Running 'rank.R' [0s/1s]
     Running 'rectint.R' [0s/0s]
     Running 'regexp.R' [0s/1s]
     Running 'roots.R' [0s/1s]
     Running 'size.R' [0s/0s]
     Running 'std.R' [0s/1s]
     Running 'strfind.R' [0s/1s]
     Running 'strings.R' [0s/1s]
     Running 'subspace.R' [0s/1s]
     Running 'trace.R' [0s/0s]
     Running 'trapz.R' [0s/1s]
     Running 'vander.R' [0s/1s]
     Running 'wilkinson.R' [0s/1s]
    Running the tests in 'tests/inv.R' failed.
    Complete output:
     > ###
     > ### eig.R +++ Test suite +++
     > ###
     >
     >
     > test.inv <- function(input, expected) {
     + output <- do.call(getFromNamespace("inv", "pracma"), input)
     + identical(output, expected)
     + }
     >
     > inv.expected.empty <- matrix(0, nrow=0, ncol=0)
     > inv.expected.singl <- matrix(Inf, 2, 2)
     > inv.expected.mat1 <- matrix(c(3,-3,1, -3,5,-2, 1,-2,1), 3, 3)
     >
     > test.inv(list(a=c()), inv.expected.empty)
     [1] TRUE
     > test.inv(list(a=matrix(1, 2, 2)), inv.expected.singl)
     [1] TRUE
     Warning message:
     In (function (a) : Matrix appears to be singular.
     > test.inv(list(a=matrix(c(1,1,1, 1,2,3, 1,3,6), 3, 3)), inv.expected.mat1)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     pracma
     --- call from context ---
     (function (a)
     {
     if (length(a) == 0)
     return(matrix(0, nrow = 0, ncol = 0))
     if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a))
     stop("Argument 'a' must be a numeric or complex matrix.")
     if (nrow(a) != ncol(a))
     stop("Matrix 'a' must be square.")
     e <- try(b <- solve(a), silent = TRUE)
     if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
     }
     return(b)
     })(a = c(1, 1, 1, 1, 2, 3, 1, 3, 6))
     --- call from argument ---
     if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
     }
     --- R stacktrace ---
     where 1: (function (a)
     {
     if (length(a) == 0)
     return(matrix(0, nrow = 0, ncol = 0))
     if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a))
     stop("Argument 'a' must be a numeric or complex matrix.")
     if (nrow(a) != ncol(a))
     stop("Matrix 'a' must be square.")
     e <- try(b <- solve(a), silent = TRUE)
     if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
     }
     return(b)
     })(a = c(1, 1, 1, 1, 2, 3, 1, 3, 6))
     where 2: do.call(getFromNamespace("inv", "pracma"), input)
     where 3: test.inv(list(a = matrix(c(1, 1, 1, 1, 2, 3, 1, 3, 6), 3, 3)),
     inv.expected.mat1)
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (a)
     {
     if (length(a) == 0)
     return(matrix(0, nrow = 0, ncol = 0))
     if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a))
     stop("Argument 'a' must be a numeric or complex matrix.")
     if (nrow(a) != ncol(a))
     stop("Matrix 'a' must be square.")
     e <- try(b <- solve(a), silent = TRUE)
     if (class(e) == "try-error") {
     warning("Matrix appears to be singular.")
     b <- rep(Inf, length(a))
     dim(b) <- dim(a)
     }
     return(b)
     }
     <bytecode: 0x3d1c998>
     <environment: namespace:pracma>
     --- function search by body ---
     Function inv in namespace pracma has this body.
     ----------- END OF FAILURE REPORT --------------
     Error in if (class(e) == "try-error") { : the condition has length > 1
     Calls: test.inv -> do.call -> <Anonymous>
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang