Nothing
functionall<-function(fd,num,setdis,Meth,resultname,original,randgenenum,randtime,randname,presult)
{
distable(fd,num,setdis,Meth,resultname)
randdis(original,randgenenum,randtime,setdis,num,Meth,randname)
MM<-read.table(resultname,header=TRUE)
N<-read.table(randname);
valuep(MM,N,presult)
}
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.