Create Momentum with R