Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.