我需要建立基本资产负债表的模型,其中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。我发现的所有财务包都与财务分析有关,而不是财务建模。
有人会为这种建模建议另一种方法或包吗?
谢谢。
一个基本的R-ish方式可能看起来像这样。
finance <- data.frame(cash.flow=1:4)
within(finance, {
final.balance <- cumsum(cash.flow)
init.balance <- final.balance - cash.flow
})
# cash.flow init.balance final.balance
# 1 1 0 1
# 2 2 1 3
# 3 3 3 6
# 4 4 6 10
不同之处在于这个解决方案(以及另一个答案的解决方案)同时使用整个向量计算,而不是每个单独的值计算,这可以称为“R-ish”。
不需要循环,所有你真正需要的是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 package创建于2019-03-21(v0.2.1)
您的final_balance
只是累计现金流量。对于init_balance
,我们使用了lag
的final_balance
1个周期(先想想1个时期);我们也将其默认金额设置为零而不是NA
。