// Scilab code developed by:
// International Research Institute for Climate and Society
// Columbia University in the City of New York, USA
// Last update: June 26, 2013
// --------------------------------------------------------------------------------------------------------
// Dependancies : (see each function for further details)
//      -- Files PositiveCases and CDatasets2012 which contain the data
//      -- functions infected_XXX where the models are coded
// --------------------------------------------------------------------------------------------------------
// Functions :
//      -- Select one model XXX and compute its solutions
//      -- Load all the functions infected_xyz that are to be used
// --------------------------------------------------------------------------------------------------------

Directory_infected='/Volumes/shared_data/paulb/Scilab/Infected/'
Directory_data="/Volumes/shared_data/paulb/Data/Kenya/'

exec(msprintf('%s%s',Directory_infected,'InfectedBasic/infected_WCT.sce'));
exec(msprintf('%s%s',Directory_infected,'InfectedBasic/infected_ABP.sce'));
exec(msprintf('%s%s',Directory_infected,'InfectedBasic/infected_AM.sce'));
exec(msprintf('%s%s',Directory_infected,'InfectedBasic/infected_MAC.sce'));
exec(msprintf('%s%s',Directory_infected,'infected_basic_local.sci'));
exec(msprintf('%s%s',Directory_infected,'infected_sensitivity.sci'));
exec(msprintf('%s%s',Directory_infected,'infected_likelihood.sci'));
exec(msprintf('%s%s',Directory_infected,'infected_gradient.sci'));
exec(msprintf('%s%s',Directory_infected,'infected_ensemble.sci'));

Cases=csvRead(msprintf('%s%s',Directory_data,"PositiveCases.csv"),sep=";");
Clim=csvRead(msprintf('%s%s',Directory_data,"CDatasets2012.csv"),sep=";");

function[I]=infected_init(param,ti,tf,XXX)

    select XXX
    case "WCT" then
        I=infected_WCT(param,ti,tf);
    case "MAC" then
        I=infected_MAC(param,ti,tf);
    case "ABP" then
        I=infected_ABP(param,ti,tf);
    case "AM" then
        I=infected_AM(param,ti,tf);
    end

endfunction