R/getCodes.R

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]
  }
}

Try the kohonen package in your browser

Any scripts or data that you put into this service are public.

kohonen documentation built on July 9, 2023, 7:40 p.m.