Running examples in 'warbleR-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mfcc_stats
> ### Title: Calculate descriptive statistics on Mel-frequency cepstral
> ###   coefficients
> ### Aliases: mfcc_stats
> 
> ### ** Examples
> 
> {
+ data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "lbh_selec_table"))
+ writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
+ writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
+ writeWave(Phae.long3, file.path(tempdir(), "Phae.long3.wav"))
+ writeWave(Phae.long4, file.path(tempdir(), "Phae.long4.wav"))
+ 
+ # run function
+ mel_st <- mfcc_stats(X = lbh_selec_table, pb = FALSE, path = tempdir())
+ 
+ head(mel_st)
+ 
+ # measure 12 coefficients 
+ mel_st12 <- mfcc_stats(X = lbh_selec_table, numcep = 12, pb = FALSE, path = tempdir())
+ 
+  head(mel_st)
+ }
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
warbleR
 --- call from context --- 
mfcc_FUN(i = i, X = X, bp, wl = wl, numcep = numcep, nbands = nbands)
 --- call from argument --- 
if (class(m) != "try-error") {
    outdf <- data.frame(t(c(apply(m, 2, min), apply(m, 2, max), 
        apply(m, 2, stats::median), apply(m, 2, mean), apply(m, 
            2, stats::var), apply(m, 2, Sim.DiffProc::skewness), 
        apply(m, 2, Sim.DiffProc::kurtosis))), stringsAsFactors = FALSE)
    names(outdf) <- clm.nms
    m2 <- deltas(m)
    m3 <- deltas(m2)
    vm.d <- c(mean.d1.cc = mean(c(m2)), var.d1.cc = stats::var(c(m2)), 
        mean.d2.cc = mean(c(m3)), var.d2.cc = stats::var(c(m3)))
    out.df <- cbind(X[i, c("sound.files", "selec")], outdf, t(vm.d), 
        stringsAsFactors = FALSE)
} else {
    out.df <- data.frame(X[i, c("sound.files", "selec")], t(rep(NA, 
        length(clm.nms) + 4)))
    names(out.df)[-c(1:2)] <- c(clm.nms, "mean.d1.cc", "var.d1.cc", 
        "mean.d2.cc", "var.d2.cc")
}
 --- R stacktrace ---
where 1: mfcc_FUN(i = i, X = X, bp, wl = wl, numcep = numcep, nbands = nbands)
where 2: FUN(X[[i]], ...)
where 3: lapply(X, FUN, ...)
where 4: pbapply::pblapply(X = 1:nrow(X), cl = cl, FUN = function(i) {
    mfcc_FUN(i = i, X = X, bp, wl = wl, numcep = numcep, nbands = nbands)
})
where 5: mfcc_stats(X = lbh_selec_table, pb = FALSE, path = tempdir())

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (i, X, bp, wl, numcep, nbands) 
{
    r <- warbleR::read_wave(X = X, path = path, index = i)
    if (bp[1] == "frange") 
        b <- c(X$bottom.freq[i], X$top.freq[i])
    else b <- bp
    if (b[2] > ceiling(r@samp.rate/2000) - 1) 
        b[2] <- ceiling(r@samp.rate/2000) - 1
    bpfr <- b
    bpfr <- bpfr + c(-0.2, 0.2)
    if (bpfr[1] < 0) 
        bpfr[1] <- 0
    if (bpfr[2] > ceiling(r@samp.rate/2000) - 1) 
        bpfr[2] <- ceiling(r@samp.rate/2000) - 1
    m <- try(melfcc(r, wintime = wl/r@samp.rate, hoptime = wl/r@samp.rate * 
        (1 - (ovlp/100)), numcep = numcep, nbands = nbands, minfreq = bpfr[1] * 
        1000, maxfreq = bpfr[2] * 1000, ...), silent = TRUE)
    clm.nms <- paste(rep(c("min", "max", "median", "mean", "var", 
        "skew", "kurt"), each = numcep), paste0("cc", 1:numcep), 
        sep = ".")
    if (class(m) != "try-error") {
        outdf <- data.frame(t(c(apply(m, 2, min), apply(m, 2, 
            max), apply(m, 2, stats::median), apply(m, 2, mean), 
            apply(m, 2, stats::var), apply(m, 2, Sim.DiffProc::skewness), 
            apply(m, 2, Sim.DiffProc::kurtosis))), stringsAsFactors = FALSE)
        names(outdf) <- clm.nms
        m2 <- deltas(m)
        m3 <- deltas(m2)
        vm.d <- c(mean.d1.cc = mean(c(m2)), var.d1.cc = stats::var(c(m2)), 
            mean.d2.cc = mean(c(m3)), var.d2.cc = stats::var(c(m3)))
        out.df <- cbind(X[i, c("sound.files", "selec")], outdf, 
            t(vm.d), stringsAsFactors = FALSE)
    }
    else {
        out.df <- data.frame(X[i, c("sound.files", "selec")], 
            t(rep(NA, length(clm.nms) + 4)))
        names(out.df)[-c(1:2)] <- c(clm.nms, "mean.d1.cc", "var.d1.cc", 
            "mean.d2.cc", "var.d2.cc")
    }
    return(out.df)
}
<bytecode: 0x752b8e0>
<environment: 0x753dbf0>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1