data(cycling_data)
Wbal_plots(cycling_data, x = 2, n = c(1, 2, 3), CP = 300)
# Show just W' balance.
Wbal_plots(cycling_data, x = 2, n = 1)
# Elevation profile on top
Wbal_plots(cycling_data, x = 2, n = c(3, 1))
# Zoom all plots to 20-40 km.
Wbal_plots(cycling_data, x = 3, CP = 300, xlim = c(20, 40), xaxs = "i")Run the code above in your browser using DataLab