#' Expit transformation, i.e. inverse logit
#'
#' @param x
#'
#' @return expit(x)
#' @export
expit <- function(x) {
1/(1+exp(-x))
}
#' Logit tranformation
#'
#' @param y
#'
#' @return logit(y)
#' @export
logit <- function(y) {
-log(1/y - 1)
}
# Clean up when package is unloaded.
.onUnload <- function (libpath) {
library.dynam.unload("stemr", libpath)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.