# generate data
dt.rw <- data.table::data.table(
uid_radius = rep(paste0("R", 1:3), each = 5),
year = rep(2001:2005, times = 3),
rw_mm = round(runif(15, 0.5, 3.5),2)
)
data.table::setorder(dt.rw, uid_radius, year)
# calculate bai
dt.rw <- calc_bai(dt.rw)
Run the code above in your browser using DataLab