CaliforniaSediment <- Flowmatrix(LIMCaliforniaSediment)
plotweb(CaliforniaSediment, main = "Santa Monica Basin Benthic web",
sub = "mgN/m2/day", lab.size = 0.8)
if (FALSE) {
xr <- LIMCaliforniaSediment$NUnknowns
i1 <- 1:(xr/2)
i2 <- (xr/2+1):xr
Plotranges(LIMCaliforniaSediment, index = i1, lab.cex = 0.7,
sub = "*=unbounded",
main = "Santa Monica Basin Benthic web, Flowranges - part1")
Plotranges(LIMCaliforniaSediment, index = i2, lab.cex = 0.7,
sub = "*=unbounded",
main = "Santa Monica Basin Benthic web, Flowranges - part2")}
Run the code above in your browser using DataLab