R/head_dist_matrix.R

head.dist.matrix <- function (x, n=6L, k=n, ...) {
  n <- min(n, nrow(x))
  k <- min(k, ncol(x))
  x[1:n, 1:k]
}

Try the wordspace package in your browser

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

wordspace documentation built on Aug. 23, 2022, 1:06 a.m.