Nothing
# ------------------------------------------------------------------------------
# whiteseg()
# ------------------------------------------------------------------------------
whiteseg <- function(x, data, nb, fun, verbose = FALSE, ...) {
message("Note: whiteseg() function name has been changed to isp().")
message("The old name will be deprecated from version 0.6-1.")
tmpargs <- as.list(match.call())
do.call(isp, tmpargs[-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.