R/rec.r

In ClementCalenge/adehabitat: Analysis of Habitat Selection by Animals

rec <- function(x, slsp=c("remove","missing"))
{
    ## Verifications
    if (!inherits(x, "ltraj"))
        stop("x should be of class \"ltraj\"")

    ## Recomputation
    slsp <- match.arg(slsp)
    if (attr(x,"typeII")) {
        y <- traj2df(ltraj2traj(x))
        return(as.ltraj(xy=y[,c("x","y")], date=y$date,
                        id=y$id, burst=y$burst, slsp=slsp,
                        typeII=TRUE))
    } else {
        attr(x,"typeII") <- TRUE
        y <- traj2df(ltraj2traj(x))
        return(as.ltraj(xy=y[,c("x","y")], id=y$id,
                        burst=y$burst, slsp=slsp,
                        typeII=FALSE))
    }
}