vec<-function(datamat)
{
# Stacks the columns of a data matrix in a vector
n<-nrow(datamat)
outputvec<-NULL
for(i in 1:n){
outputvec<-append(outputvec,datamat[,i])
}
return(outputvec)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.