# R code developed by:
# International Research Institute for Climate and Society
# Columbia University in the City of New York, USA
# Last update: Jully 3, 2013
# --------------------------------------------------------------------------------
# Dependancies : (see each function for further details)
# 		-- Function "ExtractContinuousScores.R" and "Plot_These.R"
# --------------------------------------------------------------------------------
# Actions :
#		-- For the four models, extract the scores and plot them
# --------------------------------------------------------------------------------


Directory_Output<-"/Volumes/shared_data/paulb/Results/Results/Skills/" 
source("/Volumes/shared_data/paulb/R/Functions/Plot_Comparison_Multi.R")
source("/Volumes/shared_data/paulb/R/Functions/ExtractScores.R")

Names<-c("WCT","MAC","AM","ABP")

Models<-NULL
for (XXX in Names[1:4]) {
	Models[[XXX]]<-ExtractContinuousScores(XXX,"ensemble","corrected_SMC")
}

Scores<-list("MSE","SS","Bias","ACC")

par(mfrow = c(2,2))
Plot_These(Models,3,Scores,Names,method,anomalies)