R/apply_vector_of_deltas_on_absolute_value.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Apply deltas (per cent changes) on absolute numeric
#' @param deltas A numeric vector of deltas as per cent chnanges. Can be negative and positive.
#' @param dataPoint A numeric upon which to apply deltas   
#' @return A vector of new data points after application of delta. Vector's length is equal the length of deltas.
#' @export 

apply_vector_of_deltas_on_absolute_value = function(deltas,dataPoints){
  if(!length(deltas)==length(dataPoints)){
    stop("length(deltas)==length(dataPoints) is not TRUE")
  }
  o = c()
  for(i in 1:length(deltas)){
    frac_i = 1+deltas[i]
    o = c(o, frac_i*dataPoints[i])
  }
  return(o)
}