Code to accompany WATS Plot article