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"
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.