Nothing
Ims<-
function(n, k, N, pbar, cm = 1,type = c("exact", "napprox","ewmaSK","ewma2"),lam=1)
n * cm + (N - n) * (1 - OC(pbar,n,k,type,lam))
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.