Trajectory data
- Data from wearable gps devices
## [1] "waypoints" "routes" "tracks" "route_points"
## [5] "track_points"
## attr(,"driver")
## [1] "GPX"
## attr(,"nlayers")
## [1] 5
## OGR data source with driver: GPX
## Source: "https://www.dropbox.com/s/ulbn9m3uyz6d0a5/Abilene_Running.gpx?dl=1", layer: "track_points"
## with 2095 features
## It has 27 fields
## track_fid track_seg_id track_seg_point_id ele time
## 1 0 0 0 350.3 2018/04/07 12:00:07+00
## 2 0 0 1 350.3 2018/04/07 12:00:08+00
## 3 0 0 2 350.3 2018/04/07 12:00:11+00
## 4 0 0 3 350.0 2018/04/07 12:00:15+00
## 5 0 0 4 350.0 2018/04/07 12:00:20+00
## 6 0 0 5 350.0 2018/04/07 12:00:24+00
## magvar geoidheight name cmt desc src link1_href link1_text link1_type
## 1 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## 2 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## 3 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## 4 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## 5 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## 6 NA NA <NA> <NA> <NA> <NA> <NA> <NA> <NA>
## link2_href link2_text link2_type sym type fix sat hdop vdop pdop
## 1 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## 2 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## 3 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## 4 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## 5 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## 6 <NA> <NA> <NA> <NA> <NA> <NA> NA NA NA NA
## ageofdgpsdata dgpsid
## 1 NA NA
## 2 NA NA
## 3 NA NA
## 4 NA NA
## 5 NA NA
## 6 NA NA
## gpxtpx_TrackPointExtension
## 1 <gpxtpx:hr>143</gpxtpx:hr> <gpxtpx:cad>0</gpxtpx:cad>
## 2 <gpxtpx:hr>142</gpxtpx:hr> <gpxtpx:cad>0</gpxtpx:cad>
## 3 <gpxtpx:hr>139</gpxtpx:hr> <gpxtpx:cad>60</gpxtpx:cad>
## 4 <gpxtpx:hr>136</gpxtpx:hr> <gpxtpx:cad>60</gpxtpx:cad>
## 5 <gpxtpx:hr>134</gpxtpx:hr> <gpxtpx:cad>99</gpxtpx:cad>
## 6 <gpxtpx:hr>136</gpxtpx:hr> <gpxtpx:cad>99</gpxtpx:cad>
## coords.x1 coords.x2 optional
## 1 -97.21403 38.91273 TRUE
## 2 -97.21403 38.91273 TRUE
## 3 -97.21403 38.91270 TRUE
## 4 -97.21404 38.91255 TRUE
## 5 -97.21406 38.91235 TRUE
## 6 -97.21406 38.91215 TRUE
# Plot time series of spatial locations
par(mfrow = c(2, 1))
plot(data.frame(pt.marathon)[, 1], data.frame(pt.marathon)[, 2], pch = "*",
xlab = "Time", ylab = "Location")
plot(data.frame(pt.marathon)[, 1], data.frame(pt.marathon)[, 3], pch = "*",
xlab = "Time", ylab = "Location")