Nothing
.onLoad <- function(libname, pkgname)
{
library.dynam("fclust", pkgname, libname)
}
.onUnload <- function (lib)
{
library.dynam.unload("fclust", lib)
}
# fclustStartupMessage <- function()
# {
# msg <- c(paste0(
# "fclust version"," ",(packageVersion("fclust")),"\n", "A toolbox for fuzzy clustering"), "\n", "Type 'citation(\"fclust\")' for citing this R package in publications.")
# return(msg)
# }
#
# .onAttach <- function(lib, pkg)
# {
# # startup message
# msg <- fclustStartupMessage()
# if(!interactive())
# msg[1] <- paste("Package 'fclust' version", packageVersion("fclust"))
# packageStartupMessage(msg)
# invisible()
# }
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.