R/ddo.R

Defines functions ddo

Documented in ddo

ddo <- function(y,malthusian=TRUE)
{
	init <- y[1]
	final <- y[length(y)]
	delta <- ifelse(malthusian,log(final/init,10),final/init)
	return(delta)
}

Try the SCiAn package in your browser

Any scripts or data that you put into this service are public.

SCiAn documentation built on May 2, 2019, 5:24 p.m.