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 Aug. 8, 2023, 9:06 a.m.