# NOT RUN {
## read raw data
filepath <- system.file("extdata", "2013-06-08-090442.TCX", package = "trackeR")
run <- readTCX(file = filepath, timezone = "GMT")
## turn into trackeRdata object
run <- trackeRdata(run, units = data.frame(variable = c("latitude", "longitude",
"altitude", "distance", "heart.rate", "speed", "cadence", "power"),
unit = c("degree", "degree", "m", "m", "bpm", "m_per_s", "steps_per_min", "W"),
stringsAsFactors = FALSE))
## alternatively
run <- readContainer(filepath, type = "tcx", timezone = "GMT")
# }
Run the code above in your browser using DataLab