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