#' Compute a statistical transformation
#'
#' @param params A parameter object generated by of the other functions in
#' this packagea
#' @param x X position. This is required by all stats.
#' @param y Y position. This is required by all 2d stats.
#' @param w Optional weights. If supplied, must be a numeric vector the
#' same length as \code{x}.
#' @param ... Additional arguments passed on to stat.
#' @export
compute_stat <- function(params, x, ..., w = NULL) {
UseMethod("compute_stat")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.