Nothing
cccvc<-
function(dataset,ry,rind,rmet,covar=NULL,int=FALSE,cl=0.95,control.lme=list()){
if (int==TRUE)cccvc2(dataset,ry,rind,rmet,covar,cl,control.lme=list())
else cccvc1(dataset,ry,rind,rmet,covar,cl,control.lme=list())}
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.