R/startbernexp.R

Defines functions startbernexp

Documented in startbernexp

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 29, 2017, 9:48 a.m.