New calcScenario2.r, completed correct Fig 2 for S and associated to Results_S.r, same edits to Results_MP.r but not apparently correct yet