R/tools.R

Defines functions ck_compute

ck_compute <- function(n_mo, sk, p) {
  ck <- 2*log(sk + 2) + ifelse(sk > 0, sk*log(exp(1)*p/sk), 0)
  return(ck)
}

Try the glmvsd package in your browser

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

glmvsd documentation built on Aug. 14, 2022, 9:05 a.m.