Nothing
help.stat <- function(stat.index) {
# Retrieve the number of stats in our package:
tmp <- names(getDLLRegisteredRoutines("PoweR")[[".C"]])
nb.stats <- length(grep("stat", tmp))
if (!(stat.index %in% 1:nb.stats)) stop(paste("Statistic index should be an integer between 1 and ", nb.stats, ".", sep = ""))
if (nchar(stat.index) == 1) Rd <- paste("stat000", stat.index, sep = "")
if (nchar(stat.index) == 2) Rd <- paste("stat00", stat.index, sep = "")
if (nchar(stat.index) == 3) Rd <- paste("stat0", stat.index, sep = "")
help(Rd)
}
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.