Edits to Results_S.r and moving functions to separate files; create calcScenario1() and consOutFiles() from this; to be consolidated into separate Result file.