R/hist.ltraj.r

In adehabitat: Analysis of Habitat Selection by Animals

"hist.ltraj" <-
function(x, which="dx/sqrt(dt)", ...)
{
  if (!inherits(x,"ltraj"))
    stop("x should be of class ltraj")
  opar <- par(mfrow=n2mfrow(length(x)))
  on.exit(par(opar))
  toto <- lapply(x, function(i) {
    ex<- parse(text=which)
    coin <- eval(ex, envir=i)
    tutu <- hist(coin, main=attr(i,"burst"), xlab=ex,...)
    return(tutu)
  })
  invisible(toto)
}