Create scenarios.R

First attempt