Nothing
.onLoad <- function(libname, pkgname) {
ns <- getNamespace(pkgname)
assign( "eps", .Machine$double.eps , envir = ns)
assign("sqrt_eps", sqrt(.Machine$double.eps), envir = ns)
}
.onUnload <- function(libpath)
library.dynam.unload("coin", libpath)
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.