scramble_xx <- function (vector_xx)
{
scrambled_vec_xx <- vector_xx[sample(1:length(vector_xx))]
return(scrambled_vec_xx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.