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

npSurface <-
function(fit){
	nt<-length(fit$fit)
	fit$n_regimes[1]+nt*(2+fit$n_regimes[2])
}

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

surface documentation built on Dec. 18, 2020, 5:08 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