R/daily_yearly.R

In stocks: Stock Market Analysis

#' Convert Daily Gain to X-year Gain
#' 
#' For example, you can use this function to calculate that an investment that 
#' gains 0.1% per day would gain approximately 28.5% in a year (252 trading 
#' days).
#' 
#' @inheritParams convert_gain 
#' @param years Numeric value.
#' 
#' 
#' @return Numeric value or vector.
#' 
#' 
#' @examples 
#' # Calculate annual gain for an investment that gains 0.1% per day
#' daily_yearly(gain = 0.001)
#' 
#' # Calculate 5-year gains corresponding to various daily gains
#' daily_yearly(gain = seq(0, 0.001, 0.0001), years = 5)
#' 
#' 
#' @export
daily_yearly <- function(gain, years = 1) {
  return((1 + gain)^(252 * years) - 1)
}