/*  Compute the double declining balance depreciation
**  for the third year in the life of an asset with an
**  initial cost of $5,000, a life of five years, and
**  a salvage value of $1,000.
*/
dep = ddb(cost = 5000, salvage = 1000, life = 5, period = 3);