#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.