R/estim.R

Defines functions estim

estim <-
function(S,k) {
  i <- 1:S
  Ck <- 1 - (1-k)^S
  pi <- (k*(1-k)^(i-1))/Ck
  lpi <- log(pi)
  return(lpi)
}

Try the MLpreemption package in your browser

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

MLpreemption documentation built on Feb. 11, 2021, 5:07 p.m.