Displaying 1 result from an estimated 1 matches for "maxanimals".
2008 Jan 15
1
Population model question
...dead animals
In the starting population there are, say, 500, animals
To determine whether each of these animals survives to a following
age-class, a uniformal chance is generated, resulting in "TRUE" if the
animal lives, or "FALSE" if it dies
Live.Animals <- array (FALSE, c(MaxAnimals, Years))
Dead.Animals <- array (FALSE, c(MaxAnimals, Years))
MaxAnimals <- 5000 ## max animals in the pop.
Years <- 100 ## years in the simulation
Live.Animals[,yy] <- ifelse ((runif(MaxAnimals,0,1) < sur.age) &
Live.Animals[,yy-1], TRUE, FALSE)
## Live.Animals [,yy-1]...