时间戳

首页 > 解决方案 > R中的资产负债表建模

r - R中的资产负债表建模

问题描述

我需要为一个基本的资产负债表建模，其中 1）最终余额是初始余额加上现金流量，2）初始余额等于之前的最终余额。以下代码工作正常：

init_balance <- c(0,0,0,0)
cash_flow <- 1:4
final_balance <- c(0,0,0,0)

n <- length (final_balance)
for (i in 1:n) {
  final_balance[i] <- init_balance[i] + cash_flow[i]
  if(i < n) {
    init_balance[i+1] <- final_balance[i]
    }
}

> init_balance
[1]  0  1  3  6
> cash_flow
[1]  1  2  3  4
> final_balance
[1]  1  3  6 10

然而，这个实现使用了for循环，对我来说听起来并不像 R-ish。我发现的所有财务包都与财务分析有关，而不是财务建模。

有人会为这种建模建议另一种方法或包吗？

谢谢你。

标签： rmodelingfinance

解决方案

不需要循环，您真正需要的只是cash_flow开始：

library(tidyverse)

df <- tibble(
  cash_flow = 1:4
)
df
#> # A tibble: 4 x 1
#>   cash_flow
#>       <int>
#> 1         1
#> 2         2
#> 3         3
#> 4         4

df %>%
  mutate(
    final_balance = cumsum(cash_flow),
    init_balance = lag(final_balance, 1, default = 0)
  )
#> # A tibble: 4 x 3
#>   cash_flow final_balance init_balance
#>       <int>         <int>        <dbl>
#> 1         1             1            0
#> 2         2             3            1
#> 3         3             6            3
#> 4         4            10            6

由reprex 包（v0.2.1）于 2019 年 3 月 21 日创建

你final_balance的只是累计现金流。因为init_balance我们使用lag的是final_balanceby 1 period（想想 1 period prior）；我们还将其默认数量设置为零而不是NA.

推荐阅读