Pairs Trading Simulation in R