# A single string can describe several links in one go.
m <- new_networkModel() %>%
set_topo("NH4, NO3 -> epi -> pseph, tricor")
m
topo(m)
# Several strings can be given as distinct arguments.
m2 <- new_networkModel() %>%
set_topo("NH4, NO3 -> epi -> pseph, tricor",
"NH4 -> FBOM, CBOM", "CBOM <- NO3")
m2
topo(m2)
# Multiple strings can be also be combined into a single argument with `c()`.
links <- c("NH4, NO3 -> epi -> pseph, tricor", "NH4 -> FBOM, CBOM",
"CBOM <- NO3")
m3 <- new_networkModel() %>%
set_topo(links)
m3
topo(m3)
# A data frame can be used to specify the links.
links <- data.frame(source = c("NH4", "NO3", "epi"),
consumer = c("epi", "epi", "petro"))
links
m4 <- new_networkModel() %>%
set_topo(links, from = "source", to = "consumer")
m4
m4$topology[[1]]
Run the code above in your browser using DataLab