Nothing
.onAttach <- function(libname, pkgname) {
## get package version
vers <- packageDescription("mboost")[["Version"]]
packageStartupMessage("This is mboost ", vers, ". ", "See ",
sQuote("package?mboost"), " and ",
sQuote('news(package = "mboost")'), "\n",
"for a complete list of changes.\n",
appendLF = TRUE)
return(TRUE)
}
.onLoad <- function(libname, pkgname) {
if (options("expressions")[[1]] <= 5000)
options(expressions = 10000) ### increase maximum number of expressions
options(mboost_useMatrix = TRUE, ### allow for Matrix package?
mboost_indexmin = 10000, ### handle ties for n > 10000
mboost_dftraceS = FALSE, ### df = trace(S) or df = trace(2 S - StS)
mboost_lambdaMax = 1e+15,### maximum value for lambda as used in df2lambda
mboost_Xmonotone = FALSE,### don't force monotonicity in %X%
mboost_eps = 10e-10, ### factor for dmat in df2lambda
mboost_check_df2lambda = TRUE) ### check if max(abs(X)) > 10 in df2lambda
### as this might take a while experts can skip this check
}
.onUnload <- function(libpath) {
if (options("expressions")[[1]] == 10000)
options(expression = 5000) ### decrease maximum number of expressions again
}
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.