R/Solow1993.eq2.fun.R

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

Defines functions Solow1993.eq2.fun

Documented in Solow1993.eq2.fun

Solow1993.eq2.fun <-
function(dd){
		names(dd)<-c("yrs", "sights")
		Tmin <- min(dd$yrs) 
		Tn <- max(dd[(dd$sights>0),]$yrs)-Tmin 
		Tmax <- max(dd$yrs)-Tmin
		n<-sum(na.omit(dd$sights))
		res<-(Tn/Tmax)^n
		return(res)
		}

Try the sExtinct package in your browser