Nothing
rTableICC.2x2xK <-
function(p,theta,M,sampling="Multinomial",N=0,lambda=NULL,zero.clusters=FALSE,print.regular=TRUE,print.raw=FALSE) UseMethod("rTableICC.2x2xK")
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.