R/print.extmod.R

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

Defines functions print.extmod

Documented in print.extmod

print.extmod <-
function(x, ...)
			{
		cat("Estimate:\n")
		print(x$Estimate[1])
    	cat("\nlowerCI:\n")
		print(x$lowerCI[1])
		cat("\nupperCI:\n")
		print(x$upperCI[1])
	}

Try the sExtinct package in your browser