depreciation_printer <- depreciation(
type="Depreciation",
category="Office",
name="Printer",
amount=100,
obsolete=36,
invest_month="2019.04"
)
depreciation_laptop <- depreciation(
type="Depreciation",
category="Office",
name="Laptop",
amount=1200,
obsolete=36,
invest_month="2019.02"
)
# initialize an empty plan
dep_plan <- transaction_plan()
# add your assets to the plan
update_plan(dep_plan) <- depreciation_printer
update_plan(dep_plan) <- depreciation_laptop
Run the code above in your browser using DataLab