Nothing
ck_compute <- function(n_mo, sk, p) {
ck <- 2*log(sk + 2) + ifelse(sk > 0, sk*log(exp(1)*p/sk), 0)
return(ck)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.