Nothing
accept_rate <-
function(object){
rj<-object$rj_acc
mh<-object$mh_acc
est<-list(rj_ar=100*mean(rj),mh_ar=100*mean(mh))
class(est)<-"acceptrate"
est}
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.