Nothing
library(rcdd)
qux <- matrix(0, 0, 6)
out <- scdd(qux, representation = "H")
print(out)
scdd(out$output)
out <- scdd(qux, representation = "H", adjacency = TRUE,
inputadjacency = TRUE, incidence = TRUE, inputincidence = TRUE)
print(out)
options(error=dump.frames)
out <- scdd(qux, representation = "V")
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.