R/startbernexp.R

startbernexp <- function(x){
  p <- sum(x>0)/length(x)
  x <- x[x>0]
  ## m <- mean(log(x))
  m <- mean(x)
  rate <- 1/m
  start <- list(prob=p,
                rate=rate)
  return(start)
}

Try the qmap package in your browser

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

qmap documentation built on May 1, 2019, 7:31 p.m.