Nothing
"pCBB2" <-
function(theta,delta,s,t)
{
pc<-pcopula1(theta,delta,psiKS,phiBB2,ivpsiKS,ivphiBB2,s,t);
resu<-pc
}
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.