Adding R script from Brian
Now allowing to hange parameters via a simulation function, as well as simulating having some kind of sammie storage