Nothing
`ddst.IIC` <-
function(coord, n, c=2.4) {
IIC = as.numeric(max(coord[1],diff(coord)) < c*log(n))
which.max(coord - (IIC*log(n) + (1-IIC)*2)*(1:length(coord)))
}
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.