## Not run:
# # Get data for 2 basins, annual average precipitation for all valid time periods
# # then subset them, and plot
# precip_dat <- get_model_precip(c("2","231"),"annualavg",1900,3000)
# precip_dat <- subset(precip_dat,precip_dat$gcm=="ukmo_hadcm3")
# precip_dat <- subset(precip_dat,precip_dat$scenario!="b1")
# ggplot(precip_dat,aes(x=fromYear,y=annualData,group=locator,colour=locator))+geom_path()
#
# ### Get data for 4 countries with monthly precipitation values
# precip_dat <- get_model_precip(c("USA","BRA","CAN","YEM"),"mavg",2020,2030)
# precip_dat <- subset(precip_dat,precip_dat$gcm=="ukmo_hadcm3")
# precip_dat <- subset(precip_dat,precip_dat$scenario!="b1")
# ggplot(precip_dat,aes(x=as.factor(month),y=monthVals,group=locator,colour=locator))+geom_path()
# ## End(Not run)
Run the code above in your browser using DataLab