# NOT RUN {
dst <- node_set("firm", NA,
type = "SCES",
alpha = 2, beta = c(0.8, 0.2),
es = 0.5,
"wheat", "iron"
)
node_print(dst)
####
dst <- node_set("firm", NA,
type = "FUNC",
func = min,
"wheat", "iron"
)
node_print(dst)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab