R/estSimpson.R

estSimpson <-
function (x) 
{
  n <- sum(x)
  estp <- x/n
  Simp <- Simpson(estp) * n/(n - 1)
  return(Simp)
}

Try the simboot package in your browser

Any scripts or data that you put into this service are public.

simboot documentation built on May 2, 2019, 9:14 a.m.