Linking assessments and all projections

# Set up the population, define functions etc
source("http://tutor-web.net/fish/fish5107stockpred/lecture50/functions.r")
source("http://tutor-web.net/fish/fish5107stockpred/lecture50/initproj.r")
# Typical commands
Fmort<-0.4
tmp<-project(years,Ncurrent,Fmort,sa,M,wa,alpha,K)
Straj<-tmp$S
Ytraj<-tmp$Y

plot(Srange,Yrange,type='l',lwd=2,ylim=c(0,20000))
points(Sinitial,0,col="green")
lines(Shist,Yhist,col="red")
lines(Straj,Ytraj,col="blue",lwd=3)
points(Straj,Ytraj)
Details
The medium-term projection is a natural extension of the
short-term projection.\\

The equilibrium yield and biomass computations correspond to
an infinite-horizon continuation of the medium-term projection.\\

It is often useful to include the following on a single plot with
SSB on the x-axis and yield on the y-axis:
\begin{itemize}
\item
the current level of biomass and yield
\item
the equilibrium biomass-yield curve
\item
the projection from the current point through the projections towards the equilibrium
\item
the historical trend of (S,Y)-pairs
\end{itemize}