Coral <- Flowmatrix(LIMCoralRockall)
plotweb(Coral, main = "Deep Water Coral Foodweb, Rockall Bank",
sub = "mmolC/m2/day", lab.size = 0.8)
if (FALSE) {
xr <- LIMCoralRockall$NUnknowns
i1 <- 1:(xr/2)
i2 <- (xr/2+1):xr
pm <- par(mfrow = c(1, 1))
Simplest <- Ldei(LIMCoralRockall)$X
Ranges <- Xranges(LIMCoralRockall)
Plotranges(Ranges[i1, 1], Ranges[i1, 2], Simplest[i1], lab.cex = 0.7,
main = "Deep Water Coral - ranges part 1")
Plotranges(Ranges[i2, 1], Ranges[i2, 2], Simplest[i2], lab.cex = 0.7,
main = "Deep Water Coral - ranges part 2")
par(mfrow = pm)
}
Run the code above in your browser using DataLab