计算留存比率
企业价值中很大一部分往往体现在终值中。而终值又受您假设的永续增长率（PGR）的影响。因此，需要用经济现实来检验 PGR。常见的经验法则包括：PGR 不能高于整体经济的长期预期增长率。原因在于，如果 PGR 长期高于经济增长率，意味着公司最终会变成"整个经济"，这并不合理。
也可以进行一致性检查。具体来说，需确保我们使用的 PGR 与终期的再投资率和净资产收益率（ROE）预测相一致。PGR 应该在非常长期内可持续，因此可将其理解为在不提供外部融资的情况下，企业正常经营所能维持的长期增长率。这意味着增长取决于企业将盈利中多少比例再投资回企业，以及这些新增投资预期能带来多高的回报。
此计算的第一步是留存比率，即再投资金额除以税后净利润。2017 至 2021 年预测的数据对象 after_tax_income、depn_amort、incr_wc 和 capex 已存入内存。为便于分析，假设留存比率使用最后一年的预测计算（即使用向量的第 5 个元素）。
本练习是课程的一部分
用 R 进行股权估值
练习说明
- 计算再投资金额。
- 计算留存比率。
注意：使用最后一年的预测（向量的第 5 个元素）。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Calculate reinvestment amount
reinvestment <- ___
reinvestment
# Calculate retention ratio
retention_ratio <- ___
retention_ratio