R/veiledspec.R

"veiledspec" <-
    function(x, ...)
{
    if (!inherits(x, "prestonfit"))
        x <- prestonfit(x)
    S.obs <- sum(x$freq)
    p <- x$coefficients
    S.tot <- p["S0"]*p["width"]*sqrt(2*pi)
    out <- c(S.tot, S.obs, S.tot - S.obs)
    names(out) <- c("Extrapolated","Observed","Veiled")
    out
}

Try the vegan package in your browser

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

vegan documentation built on May 2, 2019, 5:51 p.m.