data('runs', package = 'trackeR')
runSummary <- summary(runs, session = 1:2)
## print summary
runSummary
print(runSummary, digits = 3)
if (FALSE) {
## change units
change_units(runSummary, variable = 'speed', unit = 'km_per_h')
## plot summary
runSummaryFull <- summary(runs)
plot(runSummaryFull)
plot(runSummaryFull, group = c('total', 'moving'),
what = c('avgSpeed', 'distance', 'duration', 'avgHeartRate', "total_elevation_gain"))
}
Run the code above in your browser using DataLab