# Get the list of available stations
if (FALSE) {
GetDataSEPA_Rain(StationName = "AnythingButAStationName")
}
# Get rain from the Bannockburn station
if (FALSE) {
bannockburn <- GetDataSEPA_Rain(
StationName = "Bannockburn",
From = "1998-10-01", To = "1998-10-31"
)
}
# Inspect the first few rows and plot the data
if (FALSE) {
head(bannockburn)
plot(bannockburn, type = "h", ylab = "Rainfall (mm)")
}
Run the code above in your browser using DataLab