R/getCodes.R

In e-sensing/kohonenDTW: Supervised and Unsupervised Self-Organising Maps for Satellite Image Time Series

Defines functions getCodes

Documented in getCodes

getCodes <- function(x, idx = 1:length(codes)) {
  codes <- x$codes
  if (length(idx) == 1) {
    codes[[idx]]
  } else {
    codes[idx]
  }
}