R/estSimpson.R

estSimpson <-
function (x) 
{
  n <- sum(x)
  estp <- x/n
  Simp <- Simpson(estp) * n/(n - 1)
  return(Simp)
}
shearer/simboot documentation built on Feb. 13, 2024, 6:58 a.m.