Last chance! 50% off unlimited learning
Sale ends in
data(redfieldNP)
attach(redfieldNP)
plot(PO4, NO3, xlab=expression(PO[4]), ylab=expression(NO[3]))
abline(0, 20, lwd=3) # line N:P = 20:1, as shown by Redfield
detach(redfieldNP)
Run the code above in your browser using DataLab