## Not run:
# data(ridedata)
#
# ## When run the first time, geographical data will need to be downloaded.
# ridedata$elevation.corrected <- elevation_correct(ridedata, "GBR")
#
# ## A Bland-Altman-type plot.
# difference <- ridedata$elevation.m - ridedata$elevation.corrected
# plot(difference ~ ridedata$timer.min, cex = 0.2, ylab = "raw minus corrected")
# m <- mean(difference, na.rm = TRUE); stdev <- sd(difference, na.rm = TRUE)
# abline(h = c(m + c(-stdev, 0, stdev)), lty = c(1, 2, 1), col = "red")
# ## End(Not run)
Run the code above in your browser using DataLab