get_amortization_5: Capitalize R&D (-5 years)

View source: R/valuation_funs.R

get_amortization_5R Documentation

Capitalize R&D (-5 years)

Description

Capitalize R&D investments five years back (Light manufacturing, Aluminum, Auto Parts, Building Materials, Computer Peripherals, Gold/Silver, Mining, Office supplies, Petroleum, Textile, Rubber, Tabacco).

Usage

get_amortization_5(cash_flows, amortized)

Arguments

amortized

Boolean Calculate amortized R&D

cashflows

List of numbers R&D spending the last 5 years

Value

Number Amortized or unamortized portion of R&D

Examples

# List of cash flows
# cash_flow <- list(current=123, y1=333, y2=444, y3=444, y4=555, y5=666)
# Calculate unamortized portion of R&D
# unamortized_rnd <- get_amortization_5(cash_flows=cash_flow, amortized=FALSE)
# Calculate amortized portion of R&D
# amortized_rnd <- get_amortization_5(cash_flows=cash_flow, amortized=TRUE)

TracyRage/fun_valuation documentation built on Jan. 29, 2023, 8:41 a.m.