CRAN Package Check Results for Package AnalyzeTS

Last updated on 2019-12-06 00:49:49 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.2 15.04 95.37 110.41 ERROR
r-devel-linux-x86_64-debian-gcc 2.2 14.65 73.80 88.45 OK
r-devel-linux-x86_64-fedora-clang 2.2 143.51 OK
r-devel-linux-x86_64-fedora-gcc 2.2 128.51 OK
r-devel-windows-ix86+x86_64 2.2 26.00 97.00 123.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.2 22.00 102.00 124.00 OK
r-patched-linux-x86_64 2.2 15.34 86.73 102.07 OK
r-patched-solaris-x86 2.2 173.50 OK
r-release-linux-x86_64 2.2 13.13 86.27 99.40 OK
r-release-windows-ix86+x86_64 2.2 34.00 104.00 138.00 OK
r-release-osx-x86_64 2.2 OK
r-oldrel-windows-ix86+x86_64 2.2 15.00 94.00 109.00 OK
r-oldrel-osx-x86_64 2.2 OK

Check Details

Version: 2.2
Check: examples
Result: ERROR
    Running examples in 'AnalyzeTS-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: Descriptives
    > ### Title: Descriptives
    > ### Aliases: Descriptives
    >
    > ### ** Examples
    >
    > #Load data
    > library(MASS)
    > data(crabs)
    >
    > #Calculate descriptive statistic to a continuously variable
    > Descriptives(crabs$FL)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    AnalyzeTS
     --- call from context ---
    round2str(b, r)
     --- call from argument ---
    if (class(x) == "table") {
     if (length(dim(x)) == 1)
     x <- as.vector(x)
     if (length(dim(x)) == 2)
     x <- as.matrix(x)
    }
     --- R stacktrace ---
    where 1: round2str(b, r)
    where 2: as.matrix(as.numeric(round2str(b, r)))
    where 3: mieuta.so(x, r)
    where 4: Descriptives(crabs$FL)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x, r = 12)
    {
     is.vector2 <- function(a) {
     c(class(a) == "vector" | class(a) == "numeric")
     }
     is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x -
     round(x)) < tol
     find.text <- function(ch, str) {
     n <- nchar(str)
     text <- "t"
     for (i in 1:n) {
     text <- c(text, substring(str, i, i))
     }
     vt <- c(0:n) * (text == ".")
     vt <- vt[vt != 0]
     vt
     }
     round2 <- function(x, r) {
     if (!is.numeric(x))
     stop("'x'consit non-numeric variable!")
     if (is.null(x) | missing(x) | is.na(x))
     kq <- x
     else {
     x <- as.character(x)
     vt.cham <- find.text(".", x)
     if (length(vt.cham) != 0)
     kq <- substring(x, 1, vt.cham + r)
     if (length(vt.cham) == 0)
     kq <- x
     }
     kq
     }
     round2s <- function(x, r) {
     if (is.vector2(x) & length(x) == 1)
     kq <- round2(x, r)
     if (is.vector2(x) & length(x) > 1) {
     n <- length(x)
     kq <- rep(0, n)
     for (i in 1:n) kq[i] <- round2(x[i], r)
     }
     if (is.matrix(x) | is.data.frame(x)) {
     m <- dim(x)[1]
     n <- dim(x)[2]
     kq <- matrix(rep(0, m * n), ncol = n)
     for (j in 1:n) for (i in 1:m) kq[i, j] <- round2(x[i,
     j], r)
     }
     kq
     }
     if (!is.wholenumber(r))
     stop("'r' must be a integer number!")
     if (class(x) == "table") {
     if (length(dim(x)) == 1)
     x <- as.vector(x)
     if (length(dim(x)) == 2)
     x <- as.matrix(x)
     }
     if (is.vector2(x) | is.matrix(x) | is.data.frame(x))
     kq <- round2s(x, r)
     if (class(x) == "list")
     stop("'x' must not be a list!")
     kq
    }
    <bytecode: 0xc68de50>
    <environment: namespace:AnalyzeTS>
     --- function search by body ---
    Function round2str in namespace AnalyzeTS has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang