random.generator<-function(v,n){
values<-as.numeric(names(v))
repited<-as.numeric(v)
created.vector<-rep(values,repited)
SAMPLE.vec<-sample(created.vector,n)
return(SAMPLE.vec)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.