# \donttest{
dst.firm <- node_new(
"output",
"prod1", "prod2"
)
plot(dst.firm)
dst.VA <- node_new(
"VA",
"lab", "cap"
)
node_insert(
dst.firm, "prod1",
dst.VA, "prod3"
)
node_set(
dst.firm, "output",
"prod4"
)
plot(dst.firm)
# }
Run the code above in your browser using DataLab