Mercurial > repos > greg > insect_phenology_model
changeset 4:4114785abbe7 draft
Uploaded
| author | greg |
|---|---|
| date | Tue, 08 Aug 2017 12:38:07 -0400 |
| parents | 574a052becbe |
| children | 20d4cd7eb27a |
| files | insect_phenology_model.R |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/insect_phenology_model.R Tue Aug 08 11:20:52 2017 -0400 +++ b/insect_phenology_model.R Tue Aug 08 12:38:07 2017 -0400 @@ -593,7 +593,7 @@ par(mar = c(5, 6, 4, 4), mfrow=c(3, 1)) # Subfigure 2: population size by life stage -plot(day.all, sa, main = "Total Population Size by Life Stage", type = "l", ylim = c(0, max(se + se.se, sn + sn.se, sa + sa.se)), axes = F, lwd = 2, xlab = "", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) +plot(day.all, sa, main = "BSMB Total Population Size by Life Stage", type = "l", ylim = c(0, max(se + se.se, sn + sn.se, sa + sa.se)), axes = F, lwd = 2, xlab = "", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) # Young and old nymphs lines(day.all, sn, lwd = 2, lty = 1, col = 2) # Eggs @@ -616,7 +616,7 @@ } # Subfigure 3: population size by generation -plot(day.all, g0, main = "Total Population Size by Generation", type = "l", ylim = c(0, max(g2)), axes = F, lwd = 2, xlab = "", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) +plot(day.all, g0, main = "BSMB Total Population Size by Generation", type = "l", ylim = c(0, max(g2)), axes = F, lwd = 2, xlab = "", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) lines(day.all, g1, lwd = 2, lty = 1, col = 2) lines(day.all, g2, lwd = 2, lty = 1, col = 4) axis(1, at = c(1:12) * 30 - 15, cex.axis = 2, labels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")) @@ -637,7 +637,7 @@ } # Subfigure 4: adult population size by generation -plot(day.all, g0a, ylim = c(0, max(g2a) + 100), main = "Adult Population Size by Generation", type = "l", axes = F, lwd = 2, xlab = "Year", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) +plot(day.all, g0a, ylim = c(0, max(g2a) + 100), main = "BSMB Adult Population Size by Generation", type = "l", axes = F, lwd = 2, xlab = "Year", ylab = "Number", cex = 2, cex.lab = 2, cex.axis = 2, cex.main = 2) lines(day.all, g1a, lwd = 2, lty = 1, col = 2) lines(day.all, g2a, lwd = 2, lty = 1, col = 4) axis(1, at = c(1:12) * 30 - 15, cex.axis = 2, labels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))