Nothing
cat.stat <- function(...){
stop("\n","cat.stat has been removed. Please use one of the following methods instead.",
"\n\n",
"chisq.stat Pearson's ChiSquare Statistic (was cat.stat)\n",
"trend.stat (Cochran-Armitage) Trend Test\n",
"\n", "Still to come:\n",
"pccc.stat Pearson's Corrected Contingency Coefficient\n")
}
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.