#Get the list of available stations
if (FALSE) GetRainSEPA("AnythingButAStationName")
#Now we'll get rain from the Bannockburn station
if (FALSE) Bannockburn <- GetRainSEPA("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