R/logdistfit.R

Defines functions .logdistrfit

.logdistrfit <- function(x,wt) {
  xbar = sum(wt*x)
  fn <- function(p) xbar + p/((1-p)*log(1-p))
  uniroot(fn,c(1e-10,1-1e-10))$root
}

Try the hhsmm package in your browser

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

hhsmm documentation built on May 29, 2024, 6:08 a.m.