R/getAIC.R
In surface: Fitting Hansen Models to Investigate Convergent Evolution

getAIC <-
function(L,np,n,AICc=TRUE){
	result<-(-2)*(L)+2*np
	if(AICc)result<-result+2*np*((np+1)/(n-np-1))
	result
	}

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

surface documentation built on Sept. 11, 2024, 5:28 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the surface package in your browser