Nothing
# rows of matrix mat are expandend according to
# frequencies given in vector freq,
# freq must have a length of nrow(mat)
expand.mat<-function(mat,freq)
{
mat<-as.matrix(mat)
mat[rep(seq_len(nrow(mat)), freq), ]
}
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.