r - 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))

祝你好运！