R中的经济模拟

Question

我正试图创建一个模拟经济模型的程序。我有一些参数，我必须能够改变。我应该看起来像这样。因此，我的问题是，我如何创建一个程序，在那里我可以决定时间周期和参数。假设资本I周期1是由Capital_1=(1-s)*Output_0+Capital_0给出的。劳动由Labour_1=(1+n)*labour_0提供。Output_1=Capital_1*Labour_1*k，其中s，n和k是参数

Time   | Output | Capital | Labour |
------ | ------ | ------- | ------ |
  0    |   10   |    2.5  |   2    |
  1    |  ...   |    ...  |   ...  |
  2    |  ...   |    ...  |   ...  |
  3    |  ...   |    ...  |   ...  |

Answer 1

下面的内容应该足以给你一个如何解决这个问题的提示。由于不清楚，这是否是家庭作业，可能会有一两个问题的代码，迫使您仔细研究它，并可能作出一两次更正。然而，它的工作原理应该是显而易见的。

Output <- 10
Capital <- 2.5
Labour <- 2

generator <- function(steps,s, n, k){
    for(i in 2:(steps)){
        Capital[i] <- (1-s)*Output[i-1]+Capital[i-1]
        Labour[i] <- n*Labour[i-1]
        Output[i] <- Capital[i]*Labour[i]*k
    }
    return(data.frame(Output = Output, Capital = Capital, Labour = Labour))
}

print(generator(steps=10, s=.01, n=1.002, k=1.01))

祝好运!