Skip to contents

Cost Matrix

Source: R/psi_cost_matrix.R
psi_cost_matrix.Rd

Demonstration function to compute a cost matrix from a distance matrix.

Usage

psi_cost_matrix(dist_matrix = NULL, diagonal = TRUE, weighted = TRUE)

Arguments

dist_matrix

(required, numeric matrix). Distance matrix generated by psi_distance_matrix(). Default: NULL

diagonal

(optional, logical vector). If TRUE, diagonals are included in the dynamic time warping computation. Default: TRUE

weighted

(optional, logical vector) If TRUE, diagonal is set to TRUE, and diagonal cost is weighted by a factor of 1.414214. Default: TRUE

Value

numeric matrix

See also

Other psi_demo: distance(), distances, psi_auto_distance(), psi_auto_sum(), psi_cost_path(), psi_cost_path_ignore_blocks(), psi_cost_path_sum(), psi_distance_lock_step(), psi_distance_matrix(), psi_equation()

Examples

#distance metric
d <- "euclidean"

#use diagonals in least cost computations
diagonal <- TRUE

#simulate two irregular time series
x <- zoo_simulate(
  name = "x",
  rows = 100,
  seasons = 2,
  seed = 1
)

y <- zoo_simulate(
  name = "y",
  rows = 80,
  seasons = 2,
  seed = 2
)

if(interactive()){
  zoo_plot(x = x)
  zoo_plot(x = y)
}

#distance matrix
dist_matrix <- psi_distance_matrix(
  x = x,
  y = y,
  distance = d
)

#cost matrix
cost_matrix <- psi_cost_matrix(
  dist_matrix = dist_matrix,
  diagonal = diagonal
)

if(interactive()){
  utils_matrix_plot(
    m = cost_matrix
    )
}