#Get the list of available stations
if (FALSE) GetDataSEPA_Rain(StationName = "AnythingButAStationName")
#Now we'll get rain from the Bannockburn station
if (FALSE) Bannockburn <- GetDataSEPA_Rain(StationName = "Bannockburn",
From = "1998-10-01", To = "1998-10-31")
#Now we'll have a look at the top of the data and plot it
if (FALSE) head(Bannockburn)
if (FALSE) plot(Bannockburn, type = "h", ylab = "Rainfall (mm)")
Run the code above in your browser using DataLab