"landscape.populations" <-
function(Rland)
{
if (is.landscape(Rland,verb=F))
{
(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.