vultures$POSIX <- as.POSIXct(vultures$timestamp, tz = "UTC")
vultures_paths <- vultures[vultures$POSIX > as.POSIXct("2009-03-22", origin = "1970-01-01") &
vultures$POSIX < as.POSIXct("2009-04-05", origin = "1970-01-01"), ]
interpolated_paths <-
animate_paths(
paths = vultures_paths,
delta.t = 3600 * 6,
coord = c("location.long", "location.lat"),
Time.name = "POSIX",
ID.name = "individual.local.identifier",
s_args = rep(list(list(k = 10)), 6),
return.paths = TRUE
)
plot(interpolated_paths, i = 2)
Run the code above in your browser using DataLab