Nothing
#' Moment function
#'
#' @param ... all arguments passed to moment_f()
#'
#' @return moment
#' @export
#'
#' @examples
moment <- function(...) {
int_f <- function(x) moment_f(x,...)
stats::integrate(int_f, -Inf, Inf, abs.tol = 0)$value
}
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.