'bootstrap' <-
function(sequence)
{
nchar<-dim(sequence)[2]
a<-sample(1:nchar,nchar,replace=TRUE)
boot<-sequence[,a]
boot
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.