estSimpson <- function (x) { n <- sum(x) estp <- x/n Simp <- Simpson(estp) * n/(n - 1) return(Simp) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.