## Not run:
# ## Plot annual historical data for USA, Brazil and Australia
# hist_dat <- get_historical_precip(c("USA","BRA","AUS"),"year")
# ggplot(hist_dat,aes(x = year,y = data, group = locator,
# colour = locator)) + geom_point() + geom_path() + ylab("Mean annual precipitaion")
#
# ## Plot monthly historical data
# hist_mo_dat <- get_historical_precip(c("USA","AUS","BRA","IDN"),time_scale="month")
# ggplot(hist_mo_dat,aes(x = month,y = data, group = locator,
# colour = locator)) + geom_point() + geom_path() + ylab("Mean monthly precipitaion")
#
# ## End(Not run)
Run the code above in your browser using DataLab