ConsensusSetup <- function()
{
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/ConsensusGUI.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/AgreeMat.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/Consensus.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/ConsensusFn.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/ConsensusFnChange.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/GenerateCCs.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/Robust.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/GenerateRCs.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/GetRCParameter.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/GetCCParameter.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/GeneImport.R")
    source("http://www.brunel.ac.uk/~cssrajt/RConsensus/WKappa.R")
    print("Consensus Function Toolbox Downloaded, Swift and Tucker, Brunel University 2003")
    source("http://www.bioconductor.org/getBioC.R")
    library(tkWidgets)    
}