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 31, 2017, 3:27 a.m.