Nothing
#
#
#
rm.lambda <- function(Rland)
{
rl <- NULL
for (i in 1:length(Rland$demography$localdem))
{
A <- Rland$demography$localdem[[i]]$LocalR + Rland$demography$localdem[[i]]$LocalS
l <- eigen(A)$values
rl <- c(rl,sort(Re(l[Im(l)==0]),decreasing=TRUE)[1])
}
rl
}
###lambda.demomat <- function(m)
### {
### .Call("landlambda",m,PACKAGE = "rmetasim")
### }
###
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.