gpxbtour: GPS log of a bike tour

gpxbtourR Documentation

GPS log of a bike tour

Description

GPS log of a bike tour from Wageningen (the Netherlands) to Münster (Germany). The table contains 3228 records of GPS locations, speed and elevation.

Usage

data(gpxbtour)

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

Note

The log was produced using the GlobalSat GH-615 GPS watch. The original data log (trackpoints) was first saved to GPX exchange format (https://www.topografix.com/gpx.asp) and then imported to R using the XML package and formatted to a data frame.

Author(s)

Tomislav Hengl

Examples

## 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)

## End(Not run)

plotKML documentation built on June 7, 2022, 5:07 p.m.