# Calculate the area under the curve calculate_augc <- function(x, y) { sum(diff(x) * stats::na.omit(utils::head(y, -1) + utils::tail(y, -1)) ) / 2 }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.