R/as.ts.oecosimu.R

In pattakosn/Rworkshop: Community Ecology Package

`as.ts.oecosimu` <-
    function(x, ...)
{
    seqmethods <- c("swap", "tswap", "permat.swap", "permat.abuswap")
    if (!(x$oecosimu$method %in% seqmethods))
        stop("as.ts available only for sequential methods ",
             paste(seqmethods, collapse=", "))
    startval <- attr(x$oecosimu$simulated, "burnin") + 1 
    thin <- attr(x$oecosimu$simulated, "thin")
    out <- ts(t(x$oecosimu$simulated), start = startval, deltat=thin,
        names = names(x$oecosimu$z))
    attr(out, "burnin") <- NULL
    attr(out, "thin") <- NULL
    out
}