my_model <- table_model(
"Basic Income"=model_node(
revenue="Sale"
),
"Basic Costs"=model_node(
carry="Basic Income",
expense=c(
"Goods",
"Operation"
)
),
valid_types="default",
check_carry=TRUE
)
Run the code above in your browser using DataLab