CRAN Package Check Results for Package wavelets

Last updated on 2020-01-19 23:47:01 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3-0.1 7.61 39.39 47.00 ERROR
r-devel-linux-x86_64-debian-gcc 0.3-0.1 5.38 31.62 37.00 OK
r-devel-linux-x86_64-fedora-clang 0.3-0.1 57.73 NOTE
r-devel-linux-x86_64-fedora-gcc 0.3-0.1 56.25 NOTE
r-devel-windows-ix86+x86_64 0.3-0.1 25.00 89.00 114.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.3-0.1 18.00 84.00 102.00 OK
r-patched-linux-x86_64 0.3-0.1 5.79 36.45 42.24 OK
r-patched-solaris-x86 0.3-0.1 69.90 OK
r-release-linux-x86_64 0.3-0.1 5.74 37.31 43.05 OK
r-release-windows-ix86+x86_64 0.3-0.1 14.00 82.00 96.00 OK
r-release-osx-x86_64 0.3-0.1 OK
r-oldrel-windows-ix86+x86_64 0.3-0.1 10.00 49.00 59.00 OK
r-oldrel-osx-x86_64 0.3-0.1 OK

Check Details

Version: 0.3-0.1
Check: examples
Result: ERROR
    Running examples in 'wavelets-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: align
    > ### Title: Align Wavelet Transform Coefficients
    > ### Aliases: align
    > ### Keywords: ts
    >
    > ### ** Examples
    >
    > # obtain the two series listed in Percival and Walden (2000), page 42
    > X1 <- c(.2,-.4,-.6,-.5,-.8,-.4,-.9,0,-.2,.1,-.1,.1,.7,.9,0,.3)
    > X2 <- c(.2,-.4,-.6,-.5,-.8,-.4,-.9,0,-.2,.1,-.1,.1,-.7,.9,0,.3)
    >
    > # combine them and compute DWT
    > newX <- cbind(X1,X2)
    > wt <- dwt(newX, n.levels=3, boundary="reflection", fast=FALSE)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    wavelets
     --- call from context ---
    extend.series(X)
     --- call from argument ---
    if (is.na(match(class(X), c("numeric", "ts", "matrix", "data.frame")))) stop("Invalid argument: 'X' must be of class 'numeric','ts', 'matrix', or 'data.frame'.")
     --- R stacktrace ---
    where 1: extend.series(X)
    where 2: dwt(newX, n.levels = 3, boundary = "reflection", fast = FALSE)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (X, method = "reflection", length = "double", n, j)
    {
     if (is.na(match(class(X), c("numeric", "ts", "matrix", "data.frame"))))
     stop("Invalid argument: 'X' must be of class 'numeric','ts', 'matrix', or 'data.frame'.")
     if (is.na(match(method, c("periodic", "reflection", "zeros",
     "mean", "reflection.inverse"))))
     stop("Invalid argument value for 'method'")
     if (is.na(match(length, c("arbitrary", "powerof2", "double"))))
     stop("Invalid argument value for 'length'")
     if (length == "arbitrary") {
     if (missing(n))
     stop("Unspecified argument: argument 'n' must be specified when length='arbitrary'.")
     else if (round(n) != n)
     stop("Invalid argument: 'n' must be an integer value.")
     }
     if (length == "powerof2") {
     if (missing(j))
     stop("Unspecified argument: argument 'j' must be specified when length='powerof2'.")
     if (round(j) != j)
     stop("Invalid argument: 'j' must be an integer value.")
     }
     class.X <- class(X)
     if (class.X != "matrix") {
     attr.X <- attributes(X)
     X <- as.matrix(X)
     }
     dim.X <- dim(X)
     if ((dim.X[1] == 1) & (dim.X[2] > 1)) {
     X <- t(X)
     N <- dim.X[2]
     }
     else N <- dim.X[1]
     if (length == "arbitrary") {
     if (n <= N)
     stop("Invalid argument: 'n' must be greater than length of series when length='arbitrary'.")
     }
     else if (length == "powerof2") {
     k <- N/(2^j)
     if (round(k) == k)
     stop("Invalid argument: length of series should not be multiple of 2^j when length='powerof2'.")
     else n <- ceiling(k) * 2^j
     }
     else if (length == "double")
     n <- 2 * N
     if (method == "periodic")
     X <- apply(X, 2, rep, length = n)
     if (method == "reflection")
     X <- apply(X, 2, function(x, n) {
     rep(c(x, rev(x)), length = n)
     }, n = n)
     if (method == "zeros")
     X <- apply(X, 2, function(x, n) {
     c(x, rep(0, length = n - N))
     }, n = n)
     if (method == "mean")
     X <- apply(X, 2, function(x, n) {
     c(x, rep(mean(x), length = n - N))
     }, n = n)
     if (method == "reflection.inverse")
     X <- apply(X, 2, function(x, n, N) {
     rep(c(x, 2 * x[N] - rev(x)), length = n)
     }, n = n, N = N)
     if (class.X != "matrix") {
     if (class.X == "data.frame")
     X <- as.data.frame(X)
     attributes(X) <- attr.X
     }
     return(X)
    }
    <bytecode: 0xe414a8>
    <environment: namespace:wavelets>
     --- function search by body ---
    Function extend.series in namespace wavelets has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (is.na(match(class(X), c("numeric", "ts", "matrix", "data.frame")))) stop("Invalid argument: 'X' must be of class 'numeric','ts', 'matrix', or 'data.frame'.") :
     the condition has length > 1
    Calls: dwt -> extend.series
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.3-0.1
Check: compiled code
Result: NOTE
    File ‘wavelets/libs/wavelets.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