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.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
