# init.r
# Initialization for statistical stock assessment
#
numyears<-length(Y)
A<-3
selpat<-c(0,rep(1,A))            # Set to true value!
M<-0.7                           # Set to true value!

# Parameters to be estimated
Fmort.init<-rep(1,numyears)
Recr.init<-rep(100,numyears)
q.init<-rep(1,A+1)
#N.init<-rep(1000,A+1)
w<-c(0.03,0.15,0.20,0.25)
params.init<-log(c(Fmort.init,Recr.init,q.init))     # Initial values of all parameters