fishlength = seq(0.0, 0.72, by=0.001)
plot(fishlength, wffc.P2star(fishlength), type="l", col="blue",
las=1, lty="dashed", lwd=2, las=1, cex.main=0.8,
xlab="Fish length (m)", ylab="Competition points",
main="Current (red) and proposed (blue) WFFC point system")
lines(fishlength, wffc.P1star(fishlength), type="l", col="red", lwd=2)
abline(v=(1:4)*0.18, lty="dotted")
abline(h=(1:9)*wffc.P1star(0.18), lty="dotted")
Run the code above in your browser using DataLab