# NOT RUN {
library(move)
library(ggmap)
# Data from Movebank
# Study Name: Dunn Ranch Bison Tracking Project
# Principal Investigator: Stephen Blake, Randy Arndt, Doug Ladd
# Max Planck Institute for Ornithology Radolfzell Germany
study <- "Dunn Ranch Bison Tracking Project"
cainfo <- system.file("CurlSSL", "cacert.pem", package = "RCurl")
options(RCurlOptions = list(verbose = FALSE, capath = cainfo, ssl.verifypeer = FALSE))
# Login to movebank (first create the login object)
curl <- movebankLogin(username = "xxx", password = "zzz")
# Downloads study stored in Movebank
track <- getMovebankData(study = study, login = curl)
dat <- track@data[track@data[, "deployment_id"] == 13848432,]
# Map of animal locations
bbox <- ggmap::make_bbox(dat[,"location_long"], dat[,"location_lat"], f = 0.3)
map_loc <- get_map(location = bbox, source = "google", maptype = 'satellite')
map <- ggmap(map_loc, extent = 'panel', maprange=FALSE)
p <- map + geom_path(data = dat, aes(x = location_long, y = location_lat), col=2, size=0.3)
p
ah_dw <- dw_track(x = dat[, c("location_long", "location_lat")], eps = 0.001)
p + ah_dw
# }
Run the code above in your browser using DataLab