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) # UTILS-utils.R
    fill_type <- if (pairwise) "PAIRWISE" else if (symmetric) "SYMMETRIC" else "PRIMARY"
    mat_type <- "R_MATRIX"
})