Displaying 1 result from an estimated 1 matches for "nfleet".
Did you mean:
fleet
2012 Oct 16
2
Penalty function constrained optimization
Hi All,
I am trying to use optim() to minimize a function with a penalty function
term. This is a simple model bioeconomic model of a fishery. The penalty
function constrains the amount of effort (f) at 9. This works fine. The code
is:
**********
nfleets<-2
M<-1
M<-array(M,dim=c(nfleets))
N<-1000
cost<-c(30,30)
cost<-array(cost,dim=c(nfleets))
Price<-2
Price<-array(Price,dim=c(nfleets))
q<-array(0.1,dim=c(nfleets))
f<-1
f<-array(f,dim=c(nfleets))
f1<-f[1]
f2<-f[2]
init.eff<-array(8,dim=c(nfleets))
OF<-c...