Learn R Programming

plotKML (version 0.8-3)

gpxbtour: GPS log of a bike tour

Description

GPS log of a bike tour from Wageningen (the Netherlands) to M<U+00FC>nster (Germany). The table contains 3228 records of GPS locations, speed and elevation.

Usage

data(gpxbtour)

Arguments

Format

The data frame contains the following columns:

lon

longitude (x-coordinate)

lat

latitude (y-coordinate)

ele

GPS-estimated elevation in m

speed

GPS-estimated speed in km per hour

time

XML Schema time

Examples

Run this code
# NOT RUN {
## load the data:
data(gpxbtour)
library(sp)
## format the time column:
gpxbtour$ctime <- as.POSIXct(gpxbtour$time, format="%Y-%m-%dT%H:%M:%SZ")
coordinates(gpxbtour) <- ~lon+lat
proj4string(gpxbtour) <- CRS("+proj=longlat +datum=WGS84")
## convert to a STTDF class:
library(spacetime)
library(adehabitatLT)
gpx.ltraj <- as.ltraj(coordinates(gpxbtour), gpxbtour$ctime, id = "th")
gpx.st <- as(gpx.ltraj, "STTDF")
## Google maps plot:
library(RgoogleMaps)
llc <- c(mean(gpx.st@sp@bbox[2,]), mean(gpx.st@sp@bbox[1,]))
MyMap <- GetMap.bbox(center=llc, zoom=8, destfile="map.png")
PlotOnStaticMap(MyMap, lat=gpx.st@sp@coords[,2], lon=gpx.st@sp@coords[,1], 
  FUN=lines, col="black", lwd=4)
# }

Run the code above in your browser using DataLab