Nothing
.onAttach <- function(libname,pkgname){
# msg <- ""
# nfc <- "Use suppressPackageStartupMessages(library(editrules)) to suppress this message on loading editrules."
# packageStartupMessage(msg)
# packageStartupMessage(nfc)
# default lpSolveAPI options
options(er.lpcontrol =
list(
presolve = "rows" # move univariate constraints into bounds
, epsint = 1e-15
# , epssel = 1e-15
# , epsb = 1e-15
# , epsd = 1e-15
, epspivot = 1e-15
)
)
}
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.