R/print.simpextmod.R

In sExtinct: Calculates the historic date of extinction given a series of sighting events

Defines functions print.simpextmod

Documented in print.simpextmod

print.simpextmod <-
function(x, ...)
			{
		cat("Estimate:\n")
		print(x$Estimate[1])
	}

Try the sExtinct package in your browser