Nothing
d12psiAlog <-
function(t1, t2, alpha=2, A1=0, A2=0, B1=2, B2=2,... ) eval({t1<-t1; t2<-t2; alpha<-alpha;
A1<-A1; A2<-A2; B1<-B1; B2<-B2; .d12psiAlog})
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.