R/ik_calc_average.gr.R

Defines functions ik_calc_average.gr

ik_calc_average.gr <- function(data,start,end) {
        yeardiff <- as.numeric(gsub('y','',end))-as.numeric(gsub('y','',start))
        agr <- (data[,end]/data[,start])^(1/yeardiff)
        return(agr)
}
ikashnitsky/ik documentation built on May 18, 2019, 3:42 a.m.