R/ddst.IIC.R

Defines functions `ddst.IIC`

`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 2, 2019, 7:57 a.m.