Nothing
`gen.time` <-
function(A,peryear=5){
ro <- calc.ro(A)
ea <- eigen.analysis(A)
T <- peryear*log(ro)/log(ea$lambda)
T
}
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.