Create drift_simulator.R

The main file that performs the drift simulation. This is a function which should be loaded a source to your R script. It can be used by invoking drift()