Nothing
rowVector <- function (x, label=NULL) {
matrix(x, nrow=1, dimnames=list(label, names(x)))
}
colVector <- function (x, label=NULL) {
matrix(x, ncol=1, dimnames=list(names(x), label))
}
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.