inst/doc/anipaths_gam.R

In anipaths: Animation of Multiple Trajectories with Uncertainty

## ----setup, echo = F----------------------------------------------------------
knitr::opts_chunk$set(message = F)

## ----tails--------------------------------------------------------------------
library(anipaths)
vultures$POSIX <- as.POSIXct(vultures$timestamp, tz = "UTC")
vultures_paths <- vultures[format(vultures$POSIX, "%Y")
                           %in% c(2009, 2010, 2011), ] ## limit attention to 2009, 2010, 2011
delta.t <- "week"
#tails
animate_paths(paths = vultures_paths, 
              delta.t = delta.t,
              coord = c("location.long", "location.lat"),
              Time.name = "POSIX",
              ID.name = "individual.local.identifier",
              uncertainty.type = 1)

## ---- eval = F----------------------------------------------------------------
#  ## remove files used to generate animation
#  system("rm -r index.html css js images")

## ----multiple_bg, eval = F----------------------------------------------------
#  library(ggmap)
#  background <- list(center = c(-90, 10),
#                     zoom = 3,
#                     maptype = "satellite")
#  delta.t <- "week"
#  animate_paths(paths = vultures_paths,
#                delta.t = delta.t,
#                coord = c("location.long", "location.lat"),
#                Time.name = "POSIX",
#                ID.name = "individual.local.identifier",
#                uncertainty.type = 5,
#                tail.colors = "unique",
#                tail.wd = 0.7,
#                background = background)

## ---- eval = F----------------------------------------------------------------
#  ## remove files used to generate animation
#  system("rm -r index.html css js images")

## ----multi_whales, eval = F---------------------------------------------------
#  whales$POSIX <- as.POSIXct(whales$timestamp)
#  whales_paths <- whales[format(whales$POSIX, "%Y") %in% c(2014),]
#  delta.t <- 3600*12
#  animate_paths(paths = whales_paths,
#                delta.t = delta.t,
#                coord = c("location.long", "location.lat"),
#                Time.name = "POSIX",
#                ID.name = "individual.local.identifier",
#                uncertainty.type = 5,
#                tail.colors = "unique",
#                tail.wd = 0.5,
#                background = TRUE)

## ---- eval = F----------------------------------------------------------------
#  ## remove files used to generate animation
#  system("rm -r index.html css js images")

## ----blur---------------------------------------------------------------------
#blur ellipses
delta.t <- "week"
animate_paths(paths = vultures_paths, 
              delta.t = delta.t,
              coord = c("location.long", "location.lat"),
              Time.name = "POSIX",
              ID.name = "individual.local.identifier",
              uncertainty.type = "blur",
              tail.colors = "red") 

## ---- eval = F----------------------------------------------------------------
#  ## remove files used to generate animation
#  system("rm -r index.html css js images")

## ----blue_whales--------------------------------------------------------------
library(ggmap)
whales$POSIX <- as.POSIXct(whales$timestamp, tz = "GMT")
whales_paths <- whales[format(whales$POSIX, "%Y") %in% 2015,]
delta.t <- 3600*12
animate_paths(paths = whales_paths,
              delta.t = delta.t,
              coord = c("location.long", "location.lat"),
              Time.name = "POSIX",
              ID.name = "individual.local.identifier",
              uncertainty.type = "blur",
              tail.colors = "green")

## -----------------------------------------------------------------------------
## remove files used to generate animation
system("rm -r index.html css js images")