Running examples in ‘seewave-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ACI
> ### Title: Acoustic Complexity Index
> ### Aliases: ACI
> ### Keywords: ts
> 
> ### ** Examples
> 
> data(tico)
> ACI(tico)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
seewave
 --- call from context --- 
inputw(wave = wave, f = f, channel = channel)
 --- call from argument --- 
if (class(wave) == "WaveMC") {
    if (missing(f) || is.null(f)) {
        f <- wave@samp.rate
    }
    bit <- wave@bit
    wave <- as.matrix(wave@.Data[, channel])
}
 --- R stacktrace ---
where 1: inputw(wave = wave, f = f, channel = channel)
where 2: ACI(tico)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (wave, f, channel = 1, bit = 16) 
{
    if (is.data.frame(wave)) {
        f <- f
        wave <- as.matrix(wave[, channel])
    }
    if (is.vector(wave)) {
        f <- f
        wave <- as.matrix(wave)
    }
    if (is.matrix(wave) && !is.mts(wave) && class(wave) != "WaveMC") {
        f <- f
        wave <- wave[, channel, drop = FALSE]
    }
    if (is.ts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave)
    }
    if (is.mts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave[, channel])
    }
    if (class(wave) == "Sample") {
        if (missing(f) | is.null(f)) {
            f <- wave$rate
        }
        wave <- as.matrix(wave$sound[channel, ])
        bit = wave@bits
    }
    if (class(wave) == "audioSample") {
        if (missing(f) || is.null(f)) {
            f <- wave$rate
        }
        bit = wave$bits
        wave <- as.matrix(wave)
    }
    if (class(wave) == "sound") {
        if (missing(f) || is.null(f)) {
            f <- wave$fs
        }
        wave <- as.matrix(wave$sound)
    }
    if (class(wave) == "Wave") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        if (channel == 1) {
            wave <- as.matrix(wave@left)
        }
        if (channel == 2) {
            wave <- as.matrix(wave@right)
        }
    }
    if (class(wave) == "WaveMC") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        wave <- as.matrix(wave@.Data[, channel])
    }
    return(list(w = wave, f = f, bit = bit))
}
<bytecode: 0x55e2953fef38>
<environment: namespace:seewave>
 --- function search by body ---
Function inputw in namespace seewave has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1