R/ddst.IIC.R

`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))) 
}

Try the ddst package in your browser

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

ddst documentation built on May 29, 2017, 9:34 p.m.