R/UTILS-expressions.R

In dtwclust: Time Series Clustering Along with Optimizations for the Dynamic Time Warping Distance

prepare_expr <- quote({
    pairwise <- isTRUE(pairwise)
    dim_names <- list(names(x), names(y))
    if (pairwise && length(x) != length(y))
        stop("Pairwise distances require the same amount of series in 'x' and 'y'.")

    # Get appropriate matrix (big.matrix was needed before)
    D <- allocate_distmat(length(x), length(y), pairwise, symmetric, FALSE) # UTILS-utils.R

    fill_type <- if (pairwise) {
        "PAIRWISE"
    } else if (symmetric) {
        "LOWER_TRIANGULAR"
    } else {
        "PRIMARY"
    }

    mat_type <- "R_MATRIX"
})