comparison insect_phenology_model.R @ 36:5097cfeedc4f draft

Uploaded
author greg
date Tue, 20 Mar 2018 10:09:00 -0400
parents 29ec818b1c29
children c0f76f4f84fc
comparison
equal deleted inserted replaced
35:29ec818b1c29 36:5097cfeedc4f
366 title_str = paste(":", life_stages_adult, "Adult Pop by Gen", ":", sep=" "); 366 title_str = paste(":", life_stages_adult, "Adult Pop by Gen", ":", sep=" ");
367 } 367 }
368 title = paste(insect, ": Reps", replications, title_str, location, ": Lat", latitude, ":", start_date, "-", end_date, sep=" "); 368 title = paste(insect, ": Reps", replications, title_str, location, ": Lat", latitude, ":", start_date, "-", end_date, sep=" ");
369 legend_text = c("P", "F1", "F2"); 369 legend_text = c("P", "F1", "F2");
370 columns = c(1, 2, 4); 370 columns = c(1, 2, 4);
371 plot(days, group, main=title, type="l", ylim=c(0, maxval), axes=FALSE, lwd=2, xlab="", ylab=""); 371 plot(days, group, main=title, type="l", ylim=c(0, maxval), axes=FALSE, lwd=2, xlab="", ylab="", cex=3, cex.lab=3, cex.axis=3, cex.main=3);
372 legend("topleft", legend_text, lty=c(1, 1, 1), col=columns, cex=3); 372 legend("topleft", legend_text, lty=c(1, 1, 1), col=columns, cex=3);
373 lines(days, group2, lwd=2, lty=1, col=2); 373 lines(days, group2, lwd=2, lty=1, col=2);
374 lines(days, group3, lwd=2, lty=1, col=4); 374 lines(days, group3, lwd=2, lty=1, col=4);
375 axis(side=1, at=ticks, labels=date_labels, font.axis=3, xpd=TRUE, cex=3, cex.lab=3, cex.axis=3, cex.main=3); 375 axis(side=1, at=ticks, labels=date_labels, font.axis=3, xpd=TRUE, cex=3, cex.lab=3, cex.axis=3, cex.main=3);
376 axis(side=2, font.axis=3, xpd=TRUE, cex=3, cex.lab=3, cex.axis=3, cex.main=3); 376 axis(side=2, font.axis=3, xpd=TRUE, cex=3, cex.lab=3, cex.axis=3, cex.main=3);