Nothing
frcv<-function(data,Ps)
{
Qs<-as.vector(quantile(data,Ps))
Cs<-c();for(k in 1:length(Qs)) Cs<-c(Cs,sd(data[data>=Qs[k]]-Qs[k])/mean(data[data>=Qs[k]]-Qs[k]));Cs
}
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.