## Not run:
# data(chaingang)
#
# # Show the original elevation profile...
# plot(elevation.m ~ distance.km, type = "l", data = chaingang)
#
# chaingang <- transform(chaingang,
# elev.new = elevation_correct(lon, lat, "GBR"))
#
# lines(elev.new ~ distance.km, col = "red", data = chaingang)
# ## End(Not run)
Run the code above in your browser using DataLab