R/k_hyd.R

`k_hyd` <-
function(x){
    d<-diff(x)
    res<--c(d,NA)/x
    res[d>=0]<-NA
    res[x==0]<-NA
    return(res)
}

Try the tiger package in your browser

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

tiger documentation built on May 2, 2019, 2:22 a.m.