vec <- function(X, ByColumns=TRUE){
n=dim(X)[1]
p=dim(X)[2]
if (ByColumns){
v=numeric()
for (j in 1:p)
v=c(v,X[,j])
}
return(list(v=v, ByColumns=ByColumns, n=n, p=p))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.