library(magrittr)
m <- new_networkModel() %>%
set_topo(links = "NH4, NO3 -> epi -> pseph, tricor")
m <- m %>% set_size_family("normal_sd")
m
attr(m, "size_family")
m <- m %>% set_size_family(by_compartment = TRUE)
attr(m, "size_zeta_per_compartment")
Run the code above in your browser using DataLab