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: 0x55e01ff4c020>
<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