R/AddBaseValue.R

In petrbouchal/pbtools: Various reusable bits of code

AddBaseValue <- function (data, basetime) {
  basedata <- data[data$Year==basetime,]
  basedata$Year <- NULL
  basedata$value_base <- basedata$value
  basedata$value <- NULL
  datawithbase <- merge(data,basedata)
  datawithbase$diff_base <- datawithbase$value-datawithbase$value_base
  datawithbase$perc_base <- datawithbase$value/datawithbase$value_base
  return(datawithbase)
}