Nothing
peakAreaCalculator <- function(x, y) {
PA <- do.call(sum, lapply(1:(length(x) - 1), function(i) {
(x[i + 1] - x[i])*(y[i + 1] + y[i])
}))/2
##
return(PA)
}
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.