"print.traj" <- function(x, ...)
    if (!inherits(x, "traj"))
        stop("x should be an object of class traj")
    u<-split(x$burst, x$id)
    cat("******** Data frame of class traj *********\n\n")
    for (i in 1:length(u)) {
        cat("Animal ",names(u)[i],":   ",
            nlevels(factor(u[[i]])), " circuits")
        cat(" (",length(u[[i]])," relocations)\n", sep="")
    cat("\nVariables measured for each relocation:\n\n")
    print(names(x), quote=FALSE, ...)

Try the adehabitat package in your browser

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

adehabitat documentation built on Jan. 28, 2018, 5:02 p.m.