#Allan Strand 9/29/01
#
#returns a vector of populations assignments for each individual in Rland
landscape.populations <- function(Rland)
{
if (is.landscape(Rland))
{
(Rland$individuals[,1]%/%Rland$intparam$stages)+1
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.