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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: aux_hvanalysis
> ### Title: Perform H-V-spectral ratio analysis of a seismic data set
> ### Aliases: aux_hvanalysis
> ### Keywords: eseis
> 
> ### ** Examples
> 
> ## load example data set
> data(earthquake)
> 
> ## ATTENTION, THIS EXAMPLE DATA SET IS FAR FROM IDEAL FOR THIS PURPOSE
> 
> ## detrend data
> s <- signal_detrend(data = s)
> 
> ## calculate the HV ratios straightforward
> HV <- aux_hvanalysis(data = s,
+                      dt = 1 / 200,
+                      kernel = 100)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
eseis
 --- call from context --- 
eseis::signal_hvratio(data = data_i, dt = dt, method = method, 
    kernel = kernel, order = order)
 --- call from argument --- 
if (class(data) != "list") {
    data <- as.list(as.data.frame(data))
}
 --- R stacktrace ---
where 1: eseis::signal_hvratio(data = data_i, dt = dt, method = method, 
    kernel = kernel, order = order)
where 2: FUN(X[[i]], ...)
where 3: lapply(X = l, FUN = function(X, data, dt, method, kernel, order) {
    data_i <- do.call(cbind, data)[X[1]:X[2], ]
    eseis::signal_hvratio(data = data_i, dt = dt, method = method, 
        kernel = kernel, order = order)
}, data = data, dt = dt, method = method, kernel = kernel, order = order)
where 4: aux_hvanalysis(data = s, dt = 1/200, kernel = 100)

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (data, dt, method = "periodogram", kernel, order = "xyz") 
{
    if (missing(dt) == TRUE && class(data[[1]]) != "eseis") {
        warning("Sampling frequency missing! Set to 1/200")
        dt <- 1/200
    }
    else if (missing(dt) == TRUE) {
        dt <- NULL
    }
    if (missing(kernel) == TRUE) {
        kernel <- NULL
    }
    eseis_t_0 <- Sys.time()
    eseis_arguments <- list(data = "", dt = dt, method = method, 
        kernel = kernel, order = order)
    if (class(data[[1]]) == "eseis") {
        eseis_class <- TRUE
        eseis_data <- data
        data <- lapply(X = data, FUN = function(X) {
            X$signal
        })
        data <- do.call(cbind, data)
        dt <- eseis_data[[1]]$meta$dt
    }
    else {
        eseis_class <- FALSE
    }
    if (class(data) != "list") {
        data <- as.list(as.data.frame(data))
    }
    component_ID <- strsplit(x = order, split = "")[[1]]
    data <- data[order(component_ID)]
    s <- eseis::signal_spectrum(data = data, dt = dt, method = method)
    if (is.null(kernel) == FALSE) {
        s_log <- lapply(X = s, FUN = function(X) {
            log(X$spectrum)
        })
        s_log_smooth <- lapply(X = s_log, FUN = function(X, kernel) {
            caTools::runmean(x = X, k = kernel, endrule = "NA")
        }, kernel = kernel)
        s_smooth <- lapply(X = s_log_smooth, FUN = function(X) {
            exp(X)
        })
    }
    else {
        s_smooth <- lapply(X = s, FUN = function(X) {
            X$spectrum
        })
    }
    hv <- data.frame(frequency = s[[1]]$frequency, ratio = sqrt(s_smooth[[1]]^2 + 
        s_smooth[[2]]^2)/s_smooth[[3]])
    if (eseis_class == TRUE) {
        eseis_data <- list(ratio = hv, history = eseis_data$history)
        eseis_duration <- as.numeric(difftime(time1 = Sys.time(), 
            time2 = eseis_t_0, units = "secs"))
        eseis_data$history[[length(eseis_data$history) + 1]] <- list(time = Sys.time(), 
            call = "signal_hvratio()", arguments = eseis_arguments, 
            duration = eseis_duration)
        names(eseis_data$history)[length(eseis_data$history)] <- as.character(length(eseis_data$history))
        class(eseis_data) <- "eseis"
        hv <- eseis_data
    }
    return(hv)
}
<bytecode: 0x556d04034368>
<environment: namespace:eseis>
 --- function search by body ---
Function signal_hvratio in namespace eseis has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1