if (FALSE) {
## Move object in longlat projection
data(leroy)
head(seglength(leroy))
# to add this information to the move object, a "NA" has to be assigened
# e.g. to the last location (it also could be assigend to the first location).
leroy$segLength <- c(seglength(leroy), NA)
## MoveStack object in longlat projection
data(fishers)
head(seglength(fishers))
# to add this information to the moveStack object, a "NA" has to be assigened
# e.g. to the last location of each individual (it also could be assigend to the first location).
fishers$segLength <- unlist(lapply(lapply(split(fishers),seglength),c, NA))
}
Run the code above in your browser using DataLab