Nothing
.onLoad <-
function (libname, pkgname)
{
library.dynam(pkgname, pkgname, lib.loc=libname)
}
.onAttach <-
function (libname, pkgname)
{
this.year <- substr(as.character(Sys.Date( )), 1, 4)
packageStartupMessage('##\n',
'## Evolutionary Monte Carlo Clustering Package (EMCC)\n',
'##\n',
'## Functionality: evolutionary Monte Carlo clustering, temperature\n',
'## ladder construction and placement\n',
'##\n',
'## Use: "help(package = EMCC)" at the R prompt for more info\n',
'##\n',
'## Copyright (C) 2006-', this.year, ' Gopi Goswami\n',
'##\n',
'## Created by: Gopi Goswami <goswami@stat.harvard.edu>\n',
'## Maintained by: Gopi Goswami <grgoswami@gmail.com>\n',
'##\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.