data <- data.frame(
time = 1:10,
profit_rate = runif(10),
capital_stock = runif(10),
interest_rate = runif(10)
)
data <- specify_variables(data,
endogenous = "profit_rate",
endogenous_coupled = "capital_stock",
exogenous = "interest_rate"
)
attr(data, "var_spec")
Run the code above in your browser using DataLab