#' @export #' @importFrom zoo "rollmean" cal_auc <- function(X, Y) { id <- order(X) sum(diff(X[id])*rollmean(Y[id],2)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.