Description Usage Arguments Note Author(s) Examples
Create balance-sheet or transactions-flow matrices
1 | sfcr_matrix(columns, codes, ...)
|
columns |
Vector containing the name of the columns in the matrix. |
codes |
A vector containing the abbreviation of the
column names that is going to be used as a reference to
build the rows. They must be provided in the same order
as the |
... |
Vectors that fill the rows of the matrix.
The first element of each vector must be the name of the
row in the respective matrix. The remaining elements of the vector
must be name-value pairs that exactly matches the |
This function can be used to generate a transactions- flow matrix as well as a balance-sheet matrix. If the user wishes to validate these matrices with the simulated data, please pay attention to the following details:
Transactions-flow Matrix:
In the transactions-flow matrix, the sum
column is
going to be generated automatically by the validation
function. Please do not add it by hand.
Balance-sheet Matrix:
In the balance-sheet matrix, it might be the case that some
rows do not sum to zero. Therefore, the user must supply
by hand the non-zero values of the sum
column.
This column should always be the last column of the matrix
and should always be named as "Sum". If there's no column
named as "Sum", it will be generated automatically by the
validation function with all entries equal to zero.
João Macalós, joaomacalos@gmail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Balance-sheet matrix
bs_pc <- sfcr_matrix(
columns = c("Households", "Firms", "Government", "Central bank", "sum"),
codes = c("h", "f", "g", "cb", "s"),
r1 = c("Money", h = "+Hh", cb = "-Hs"),
r2 = c("Bills", h = "+Bh", g = "-Bs", cb = "+Bcb"),
r3 = c("Balance", h = "-V", g = "+V")
)
# Transactions-flow matrix
tfm_pc <- sfcr_matrix(
columns = c("Households", "Firms", "Government", "CB current", "CB capital"),
codes = c("h", "f", "g", "cbc", "cbk"),
c("Consumption", h = "-C", f = "+C"),
c("Govt. Expenditures", f = "+G", g = "-G"),
c("Income", h = "+Y", f = "-Y"),
c("Int. payments", h = "+r[-1] * Bh[-1]", g = "-r[-1] * Bs[-1]", cbc = "+r[-1] * Bcb[-1]"),
c("CB profits", g = "+r[-1] * Bcb[-1]", cbc = "-r[-1] * Bcb[-1]"),
c("Taxes", h = "-TX", g = "+TX"),
c("Ch. Money", h = "-(Hh - Hh[-1])", cbk = "+(Hs - Hs[-1])"),
c("Ch. Bills", h = "-(Bh - Bh[-1])", g = "+(Bs - Bs[-1])", cbk = "-(Bcb - Bcb[-1])")
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.