[R] dynamic programming

[garciap]

Dear members of R forum,

I'm trying to perform a simply dynamic programming model in R, following the
reccomendations of Soetart & Herman (A practical guide to ecological
modeling). However, I've obtained a number of problems, that I'm unable to
solve (even thoughI've tried during at least 2 hours). Can anyone help me?
Many thanks

> ccrit <- 0 
> cmax <- 5 
> cclass <- ccrit:cmax 
> nc <- length(cclass) 
> tmax <- 10 
> times <- 1:(tmax-1)
> nprey <- 3
> dive <- c(0.02,0.1,0.14)
> pfood <- c(200,60,40)
> f <- matrix(nrow=cmax,ncol=nc ,0) 
> bestpatch <- matrix(nrow=tmax-1,ncol=nc-1,0)
> V <- vector(length=nprey)
> fitness <- function(c,t)
+ {
+ cc <- pmin(c ,cmax)
+ cc <- pmax(cc,ccrit)
+ fitness <- f[t,cc-ccrit+1]
+ }
> for (t in rev(times))
+ {
+ for (c in cclass[-1])
+ {
+ V<-fitness*(c+dive*pfood, t+1)
Error: unexpected ',' in:
"{
V<-fitness*(c+dive*pfood,"
> f[t,c-ccrit] <- max(V)
Error in c - ccrit : non-numeric argument to binary operator
> bestpatch[t,c-ccrit+1] <- which.max(V)
Error in c - ccrit : non-numeric argument to binary operator
> }
Error: unexpected '}' in "}"
> }
Error: unexpected '}' in "}"
> 


--
View this message in context: http://r.789695.n4.nabble.com/dynamic-programming-tp3558652p3558652.html
Sent from the R help mailing list archive at Nabble.com.