R/t_dsm.R

t.dsm <- function (x) {
  info <- check.dsm(x)
  tx <- list(rows=x$cols, cols=x$rows, globals=x$globals)
  if (info$M$ok) tx$M <- t(x$M)
  if (info$S$ok) tx$S <- t(x$S)
  class(tx) <- c("dsm", "list")
  return(tx)
}

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.