Nothing
"summary.cf" <-
function (object,flows=2:length(object$cf),...)
{
for (k in flows) {
cat("\n#",k,"\n");
print(cf(object$cf[1:k],object$tab[,1]));
}
}
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.